. » : EST. ^iLABLe COPY .. 

J • * * «, * „ 0 26§ * » » " 

• J r r * * -** 

* : - - - * : : 

Rti9Mt J«t Priotir - * ••><fAEE 12 

Fjttiro EAtrv/fesittcition 07-03-B6 

10:46:13 



OH Mt 




S:arci Uni !Eil P»rson«l Coiputtr BASIC CoxpiWr V2.00 


1034 




RETURH 




1058 


02f; 






1059 


02F4 


♦ IwiwtJvUpfli 




1050 


07T4 


Af s TVYCYt«TF At M TVTV Bmmu 




1076 


027* 






1070 


02F* 






1081 


0274 






1081 


03F4 






lOBi 


02F4 


*J " UlCitTIBI ▼ / 




109C 


073 


it * witflMBi * 0 ♦ ttn IfttJIU* 1 1 left) Mo 






02FC 


LJKt Wd| IT] )*lit, 4771 t lfS 




not 


02ft 


RETUWl 




1105 


02ft 






1105 


02FC 






U0A 


02ft 


LIKE tIS * 19 1 1 -HE 1991 O 9 




1131 


02ft 


RETURN 




1133 


02ft 






1135 


02Ft 






113A 


02ft 






1157 


02FC 


RETURN 




1153 


02ft 






1158 


02FC 






1160 


02ft 


en sirs auyyfy 

DU9U0 HnlKCl 




1166 


02FC 


M? * ft » AY? ■ ft 




1174 


0300 




1 • DCT1TQU 


1190 


0369 


TP At « CHRttfn 4 r«5ffRni tucu twt » 


i > orrrrau 
lIKtiUKH 


MCi 


0300 


IF Af » CHPilO) ♦ CHSi i771 TJirli M* - 


I ; r.t I Ufvn 


UEF 


0300 


(r n* • LnhMUl * tr.»» Wjl IMtN Pit - - 


1: RET URH 


1218 


0300 


IF At * *P* TUCU IIYY a .?A*DCTI!CU 

]r ft* » o intn UTl * *20!KblUnN 




1232 


0300 


IF At r TVIFW !\¥T s ^ft»OrTHOU 




124C 


0300 


lr Hi - * Infcn UI* * "iOIKLIUKX 




1266 


0300 


lr ft* ■ 0 ln&M Ui* 3 iUlKtfUKN 




1280 


0300 


TC At ■ fUBt rT7\ TUCU rCTllt>\l 




1257 


0300 


TC ft* _ rUP*MT\ TUCU BPTIff* 

lr n* ■ CKKJUJ1 TricH RttunH 




12AE 


0300 






1282 


0300 






12*2 


0300 






1287 


0300 






12B0 


0300 


DM FlASt fiDSlffi FPI FH? FO^ FIJI 




12CE 


0300 


IT « IT * MT i VT k VT A ftYT 

****** ¥** i i4 « 14 * yii 




12B 


0300 


IF II < 0 THFv tt « ft 




I2F8 


0300 


IF K > 311 TWEN IX « 311 




130B 


0300 


IF U < 0 THEN Yl « 0 




131D 




IF U > 182 THEN YI « 182 




1330 


0300 


01 FLASI SOSUB DR1, DR2, 0R3 t DR4 




1341 


0300 


EOSL'B CISPOIRSDR 




1347 


0300 


RETURJ 




134B 


0300 






1348 


0300 


CtSRRECT: 




1350 


0300 


LOCATE 25 f l:?RlXT SPACE J 139) j 




U4D 


0300 


LOCATE :S,l:Ff.lKT MS TKl$ CORRECT? IY 


or HI 


13B7 


0300 


CCRIOOP: 




138C 


0300 


GQSUB AHTKEY 




1392 


0300 


IF Ai « V OR Af « *Y* THEX A> » 'Y':B0T0 C0REIIT 
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25 



45 



55 
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2 Z 0 263 237* 



& ** « 



Rtigsnt Jit Frintir 
PiUtrrv Entry/KoolfuiUon 



Offsit D*U Source Lint 



07-05-86 
10M6M3 

15.^ Ptrsontl Coipoter BASIC Coioiltr V2„00 



13C3 0300 

13FB 0300 

13FB 0300 

MOO 0300 

MID 0300 

M21 0300 

M21 0300 

1426 0300 

MIC 0300 

1436 0300 

1463 0300 

M30 0300 

M84 0300 

MB4 0300 

MB* 0300 

148? 0300 

1522 0300 

1326 0300 

1526 0300 

15ZB 0300 

15C4 0300 

15CB 0300 

15CB 0300 

15C0 0300 

1667 0300 

U6B 0300 

166B 0300 

H70 0300 

HFF 0302 

1750 0302 

1761 0302 

1761 0302 

1766 0302 

17AF 0302 

17B3 0302 

17B3 0302 

17B9 0302 

1B01 0302 

1605 0302 

1805 0302 

IBOft 0302 

. . 1854 0302 

1858 0302 

1858 0302 

1B50 0302 

1861 -0302 

1861 0302 

1866 0302 
18AF 0302 
18B3 0302 



\T AJ » V CR A* « THEN Al = VJ\SOT0 CWEIIT 
S3T0 C0KL00P 

^LOCATE H.liFWNT SPACES IW| 
RETURN 



DISPCURSQRt 

60SUB PLACECURS0R 

LOCATE X?,27iFRlKT USIKS •♦I.HI'jIX I GRID; 
PRINT'/; 

PRIKT US1K8 •♦Hll-jYl * SRIOj 
RETURN 



RD1: 

LIKElSCXOAUlI.U+^SCHOATia^l+O-tSCKOAnU^lM.SDi 
DATIU,4)*4) 

RETURN 

RD2: 

LlKElSCKDAniMl^.SCV-ATItl^l^l-iSCXDATIll^JM^CH 

DATXU,4)+4) fV B 
RETURN 

R53: 

LIKE ISCKCAn 1 1 , 1 ) M , 5Ck:ATT ( 1 1 2) M ) - ISCK0AT1 11 ,31 +4 ( SCR 
DATXtI,4)*4) ,,BF 
KETURN 

RAMUSI = SCR C I SCK5 ATX ; I , -SCKDAT1 C I v 1 1 1 A 2 ♦ ISCHDATTt 
I f 4)-SCX0AnU.2))*2> 

CIRCLE (SMDATXCl ( »*4 t SCN0ATXlI,2>»4» RADIUS!,,,,! 
RETURN 



DRh 



DR2; 



0R3: 



DR4; 



ERL; 



LIKE ini*l,TlX*<l-ai*4,W4l 
RETURN 



LINE CXlX«4 l YlX+4WIX«4 t n*ti 9t t 
RETURN 



LINE (IllM t Yi;44)-(IXM l YI*4) ft BF 
RETURN 



RETURN 



LINE UUH,Ul*4>-(XX*4 1 tX*41 I 0 
RETURN 
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BAD ORIGINAL 



0 263 237. 



R*i?5Dt Jet Printer PABE l< 

Pittirn Entry/Kodificition 07-03-Bb 

10: 46t 13 



Offset 




Scarce Line »W Person*! Coiputer BASIC Coapilir 


16B3 


0302 


E£2; 




1888 


0302 




LIKE lIU*4|TU»4)*(II44 1 TI**j ,0,6 


1901 


0302 




RETURN 


1905 . 


0302 






1903 


0302 


ER3; 




190A 


03C2 




LIKE HUMJUM WXX*4,n*IJ ,0,BF 


1954 


0302 




RETURN 


1938 


0302 






1953 


0302 


ER4: 




1950 


0302 




RETURN 


1961 


0302 






mi 


0302 


ANTKtY: 




\m 


0302 




A$ « 


1970 


0302 




WHILE AS » 


197? 


0302 




A* » DOXY* 


1989 


0302 




ktVO 


198C 


0302 




RETURN 


1990 


0302 






1990 


0302 


SETKAKE: 'proipt for *nd get filenm 


1993 


0302 




LOCATE 23,liPRl)IT SPACEH39); 


1932 


0302 




LOCATE I5,3B;PRm 'U'p 'boundry chevron 


19CC 


0302 




LOCATE :S,t:PRlNT •Enter Pittern Km f ; 


19E6 


0302 




LIKE IKPUTl ".NAUEl 


HF4 


0302 




RETURN 


19F8 


0302 






19FB 


0302 


• Data 


fields used by this eoaule 


* 19F8 


0302 






19FB 


0302 


KM: 




19FD 


0302 




DATA •OiR' l t LC;0'/S;Vt\':RAii« t -REPT , l , Ein , ," 1 


19FF 


0302 






19FF 


0302 


HX2: 




IA04 


0302 




DATA *LIXE' ,'RECT' ,*SRECT*, 'CtRCL' , 'REDRV VnAIK" 


1A06 


0302 






IA06 


0302 


IKSTRUCJ 


1A0B 


0302 




DATA 8,16/USE ARROWS' 


IAOD 


0302 




DATA 10 ,9 /TO SELECT FRCH THE KENU* 


1A0F 


0302 




OATA 14,12/USE TKE EHTER KEY' 


1AU 


0302 




DATA U.IO/TO ACTIVATE SELECTION' 


1A13 


0302 






1A13 


0302 


EXD SUB 


1AIA 


0302 






21AF 


0302 






50426 Byte j AviiUMe 




43373 Bytes Free 




0 Hirning Errorts) 




0 Severe 


Error(s) 
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0 268 237 



Rujwt J*J Print*..* ; 

Burr-Erown PCI-20000 custoi driver 



Offset Data 

co:o 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0004 

0030 0006 

0030 0004 

0030 0004 

0030 0006 

0030 0006 

Ot'30 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 , 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 
0030 0006 



Source. Lint 



06-30-86 
08i3Btl6 

IBB Personal Coiputer BASIC CoioiUr V2.00 



RE* ITITLEs'RtiQMt Jet Printer' J5UBTI7lE:*3urr-Bro*n PCI-2000 
0 custoi driver' 

NODULE - 'Per Driver for the PCI-20OO0 1/0 and PULSE cards 

AUTHOR - H. S. Fiirehild of Coiputiag Architects Inc. 

U3 Fairfield Hay 
BlooiinodUe, II 60103 
312/980-6777 

C0PYP.16KT tC) 1983 ABBOTT LABORATORIES 

REVISIDH - 1.2*12-16-35 MSF Add tfigit*! I/O initaliiatien, uid 
output routine 

- 1.1 12-10-85 KSF Move counter lodule to position 2 

- 1.0 11-22-85 KSF Creation of initial code 

SYSTEK - This code can only be cospiled by the BASCGK V2 
COMPILER, it nill not run under the INTERPRETER! ! 



DESCRIPTION 
ccess 
uses 

ivide 

vers 



The PCI eodulc is a group of routines used to i 
the BURR-Bro«n PCI-20000 board. The suoplied software c 
the Wordstar2000 software to lalftioction and will not p 
explicit on, off functions for the counters. Custoi dr 
nil! be i*de to prcv\oe ill of the desired functions. 



Address Register 
IKC0000 Carrier KD. / todule present (R) 
IHC00*0 nodule jnterruot status (R> 
iHCOGSO Digital I/O port 0 (R/VI 
VHC0081 Distil 1/0 port 1 (ft/*) 
IHCQ032 Buffer direction and enable (R/V) 
IXC0083 Control for ports 0 and 1 (V) 
IHCOOCO Digital I/O port 2 CR/V) 
IHC00C1 Digital I/O port 3 (R/V) 
IKC00C3 Control for ports 2 and 3 W 

IHC0200 Read todult 1.0. UUO 1010) 

VHCO204 Rate generator lo»-oroer 16 bits (0) 

IHC0205 Rate generator high-croer 16 bits ti) 

IMCO206 Counter 3 count register (2) 

IHC0207 Rate generator/counter 3 control 

IHC0208 Counter 0 count register (01 

IHC020? Counter I ccunt register (1) 

IKC020A Counter 2 count register (2) 

WCC20B Counter 0-2 control 

WCO20C Counter gate control (1 enables, 0 disa 
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R«a;ent ill rYi: 
Burr-Src« FCK 



Offset 


Data 


0030 


&006 


0030 


00Q6 


0030 


oow 


0030 


00 w 


0030 


oow 


0030 


0006 


0030 


O0M 


0030 


oco6 


0030 


OGM 


0030 


0006 


. 0030 


0006 


0030 


00 06 


0030 


0004 


0030 


CCOo 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


0006 


0030 


O0O6 


0030 


0006 


0030 


0006 


004C 


0012 


00<C 


con 



iter 

IvJvO cuswi driver 
Secret Lint 
elisi 



it 



PAGE : 
06-30-36 
08:3B;U 

IBK PersonU Cotoutir BASIC toipiler V2.00 



(unction 

Rate generator gate 
Rite 9 merit or gite 
Counter 0 gate 
Counter 1 gate 
Counter 2 gate 
Counter 3 gate 
tot used 
Hot used 



:ata dicticmart 

COUHT - Divisor to 2W»z rate to jive desired frequenc 
or tiat 

COUKTHI - High order 16 bits of a 32 bit diviso 

C3UNTU - lot* order 16 bits oi « 32 bit diviior 
LSBI - U«er 8 bits of a 16 bit divisor 
HSBX - Upper 6 bits of a 16 bit divisor 

Rain line code 

The tain line code is never executed. It's sole purpose 

it to 

declare shared the variables that *ill be used in the subrcut 
ines 

so that they Mill all be cehned and hold their values. 



MIX: 



DIH SHARED COUMT t C:L*MTKl ( COlWTU t LSBZ f KSBI 



GOTO'RAIKLKIP 
RES IPAEt 
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* - • » « 0 268 237* - * • - * - - *' 

* • • m mm, - » • a n m « 

* • • - * • * * • * 

Reagent Jet vrtrtir • . * *. . * * 

Burr-2ro«n FCI-2CCW custot dnvrr 06-.>O-S6 

08:38:16 

tffsit Dita 3oar« IW ?irwttil tcaputtr BWJC Compiler V2.00 

•RKwiJTIKE - rCI.lKIT 
•DEUAJFTICX: 

Tfce PCU:i*T subroutine initalizes the PCI hardware. 
FC1.WIT STATIC 

CEF SE5 * UtCOOO: 'Point stgeent to PC1-20000 board 
FCKE W020C,lBOfl; 'Lisibli all tofUare enabled counter 

i 

' Configur t rttt gener at or to 2 Khz 

POKE VHOSO?,^: 'Set low rate counter to tode 2 
POKE IK0207 ( IH74: 'Set high rite counter to tode 2 
POKE W0204,iH02i 'load low rate counter with 16 bits o 



004C 


co;2 


004C 


5012 


004C 


0012 


00*C 


05 12 


004C 


0012 


ooc 


5012 


0053 


0012 


0053 


0012 


005A 


OCJ2 


005ft. 


0O12 


0063 


CO 12 


0063 


0012 


0063 


0012 


0063 


0012 


0060 


0O12 


0077 


0012 


0091 


0012 


OOEft 


0012 


00?* 


0012 


0090 


C012 


O0A7 


0012 


00&7 


0012 


00A7 


©012 


00A7 


0012 


00B1 


0012 


OOBB 


0012 


00C5 


C012 


OOCE 


0012 



t 2 

<rf 2 



POKE lHO2O4 t VX00 

POKE WO:O5,tH02: 'Load hiqh rate counter «ith 16 bits 
POKE ;HO2O3 t lH0O 

POKE WO2OC T ;K03: •Enable rate counters 



' Configure dot rate counters (default to 5 Khz) 

FOKE W02C3,IH34; "Set Uw dot counter (0> to tode 2 
POKE 1K32CB,IH74; Set fu^n dot counter tl) to tode 2 
PCH IKv2&5,IH0«: 'Uao low rate counter with 16 bits o 

f 4 

pcrr iho:&s,ihoo 

PCCE ;H020?,**ii64: 'loac bich rate counter with 16 bits 
of 100 

OOOB 0012 PCKE lH020? f lH00 

00E1 C012 

00E1 0012 * Caofjfo-e dot pulse with one shot (default to 13 usee) 
00E1 0012 

OOEl 0012 POKE VK0203,Uio2: 'Set cot pulse with oneshot (2J to io 

de 1 

OOQ 0912 TO£ «K320ft,tHM: 'load oneshot with 16 bits of 26 

OOFS 0012 POIE «KO20A,lH00 

OOFE 0012 

OOFE 0012 ' Configure shifted strobe pulse one shot (default to .5 usee) 
OOFE 0012 

OOFE 0012 KiKI iK02C7,lH82: 'Set shifted strobe onshot (31 to tod 

t 1 

01CB ^2 rtKE IHO206,«avI: 'load oneshot with 16 bits of 1 

0U2 0012 POKE IH0206, WOO 

0111 0012 

OllB 0012 ' Configure port 0 to output and port 1 to input 
011B C012 

OllB 0012 POKE W00B3,iH82: ' Set up I/O chip 

0125 0012 POKE *HO0B2,W34: • Set up direction and enable buffers 

012F 0012 POKE ;H0080,tHOO: ' Oissable print head 
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0 268 237 # 



REi$5r,t i\i Printer PWE * 

Burr-rro™ PCI-tvOCC aisui driver 

08:38:U 



O^itt 


rati 


Source Lint !*H Person*! Coiputtr BASIC Coapiler V2.00 


on; 


Wit 


EX5 SUB 


OiJT 


0012 




013F 


co:2 


PER l?ASEIF:12 


013F 


O012 


•SUBrJUTIKt - COT. OR 


013F 


0012 




013F 


ooi: 


■3ES5CIFTIMI 


013F 


0012 


Tb« DOT. CM subroutine enables the dot frequency counter 


013F 


con 


Sr 


013F 


O012 


SCB TOT, OX STATIC 


01U 


0012 




OH6 


0012 


PCtt IH020C,U40F: 'Enable dot counters and rite geaertt 


0150 


0012 


w 


0150 


0012 


EHD SUB 


0137 


0012 




0157 


0012 


REX fPfcBEIFiH 


0157 


0012 


•SU3W)UT1XE - DOT. OFF 


0157 


0012 




0157 


0012 


■DESERIPTICH: 


0157 


0C12 


The DOT. OFF subrou- ■ ' e dmbles the dot counteri 


0157 


0012 




0157 


0012 


SUB DOT. OFF STATIC 


015E 


0012 




013E 


0012 


POTE IH020C,W03: *Ois«ble dot counters *nd eniblt r»te 






qrner»tor 


OliB 


0012 




oiu 


0012 


EHD SUB 


OUr 


0012 




OHF 


0012 


RE* IPA6E1F: 49 
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• 




• • « 0 268 23Z. mn mm mgkt . m 


• • 


* * 


• *» » mm A mm* 


* 


• • 


• * • • » * m> m, m m m m m 


* 




• a * , » m » m m 


m 


o 


* • • m m m m> m * 


m 


• 


* * # • » m » ****** 


Reacent 


#it Printer P«E 5 


Burr-Brow PCI-20000 custoe criver 06-30-86 






08:38:16 


Offset 


Data 


$™ce Line IBH Personal Coiputtr BkSIC Coseiler V2.00 


our 


0012 


■SOTROUTIKE - sn.MT.RATE 


OUF 


0012 


• 


OUF 


0012 


'CS5CUPT10X: 


OUF 


0012 


The SET. DOT. RATE subroutine loads the dot rale counter* 


016F 


0012 


* *ilh the desired dot frequency. Allowed range is 10,000 to X 


OUF 


0012 


Hz. 

* The FREE paraieter is a real nuiber in Hz. 


OUF 


0012 


OUF 


0012 


SUB SET. DOT. RATE (FKEQ1 STATIC 


0176 


0012 




0176 


0012 


• Litit frtqtncy to in ringi 


om 


0012 




0176 


0012 


IF FREQ < 1 THEN FREQ » 1 


018F 


0012 


IF FREQ > 10000 THEH FREQ * 10000 


01 AS 


0012 




01A8 


0012 


* Convert to count and check for U bit count or 32 bit count 


01A8 


0012 




01AB 


0012 


COUNT * 2E6 / FREQ 


01B6 


0012 


IF CQWT < 65336! THEN 60TO DIVIDEU ELSE GOTO DIV1DE32 


OICF 


0012 




OiCf 


0012 


' Process count of 32 bits 


OICF 


0012 




OICF 


0012 


DWIDE32:. 


0100 


0012 


COUNTIX » IHTUC0UKT/3276B!) ♦ Ih 'Stage io*er count 


01FO 


0012 


COWTHl » IHTtCCWT/CC'JKTLI): 'Fore upper count 


020B 


0012 


BOTO SET.COUXT 


020F 


0O12 




020F 


0012 


* Process count of U bits 


020F 


0012 




020F 


0012 


DIVI5EU: 


0214 


0012 


COUXTIX - 2 


021B 


0012 


COWTHl « iHTlCaUMt/;) 


0232 


0012 


GOTO SET.COUXT 


0236 


0012 




0236 


00t2 


' Send the derives counts out to the counters 


0236 


0012 




0236 


0012 


SET. COUNT:. 


0237 


0012 


LSil « CCUKTLX ROD 256: ' Send out Ion U bits 


0248 


0012 


KSBX « INTICOUHTLI / 236) 


0263 


0012 


POKE IH0208,LSB1 


0273 


0012 


POKE VH0203 t nSBI ' 


0253 


0012 




02B3 


0012 


LSBX " COUKTKI KOO 236: 'Send out high 16 bits 


0271 


0012 


KSBl ■ INT(CCUKTKX / 2S6> 


02AC 


0012 


POKE VH020?,138X 


028C 


0012 


FOKE *H0209,r»3BX 


02CC 


0012 




02CC 


0012 


END SUB 


0203 


0012 




0203 


0012 


REK SPABEIF:27 
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• . « 0 2S8 237 ~ * 

\ m m # 

► • * • ft < 



K»qeot Jet Printer ™ 5 t 6 

Burr-Sroim FCl-IvOOO custoi driver 0&-30-9& 

08(38: U 



Offnt 


Data 


Uzrtt line UK Personal Cwouter BASIC Coopiter V2.00 


0233 


eon' 


'SKKCCTIKE - $ET,D0T.¥1DTH 


0203 


0012 


• 


om 


0012 


•M5CTIPTICH! 




0012 


The SET. DOT, WIDTH subroutine loads thi dot width one sh 






ot 


02D3 


0012 


* «ith tbi desired dot pulse width, Allotted range is .5 to 16,0 






00 usee. 


02D3 


0012 


' The dridth pvuittr is i rtil nuibir in umc. 


02D3 


0012 




0203 


0012 


m SET.rOT,«IDTKlMlDTK) STATIC 


020A 


0012 




020A 


0012 


' Li »it width to so range 


02DA 


0012 




02DA 


0012 


IF WIDTH < .5 THEN DMIOTH « ,5 


02F3 


0012 


IF DUIDTH > HOOO THEN WIDTH * IfcOOO 


030C 


0012 




030C 


0012 


* tcovert to count 


030C 


0012 




030C 


0012 


COUNT * DWIDTH / .5 


.031* 


0012 




031A 


0012 


' Send the derived count out to the counter 


031A 


0012 




031A 


0012 


ISBX » miCOUHT AOO 2&h * Send out U bits 


0331 


0012 


KSBI * IHTICTJUKT / 256) 


0346 


0012 


POKE IH020A,LSB1 


0338 


0012 


POKE lH020A,nS81 


0368 


0012 




0368 


0012 


EKD SUB 


03&F 


0012 




03*F 


0012 


E£H f?ASEIF(27 
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• 


• 


« • * 0 266 23> * mm « * « • • 




• 


* * * 








t V 


• mm* m m. % m m « m « * 




* 


# 


• * » * « * * 0 




• 


• 


m m m * * * » A » 




• 


« 


*» * • mm mm 




Reagent Jet Printer PABE 7 




Burr-Brow? FCi-20000 custpi driver Ofc-30-flfc 








08:38:16 


6 


Offset 


Data 


Source Line IB* Personal Cotputer BASIC Coipiler V2*00 




034F 


0012 


•SUBROUTINE - SET. STROBE. DELAY 




036F 
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04 A* 


UCF 


04A4 


UCF 


04U 


uro 


04U 


1200 


04A6 


IZU 


04A6 


12U 


04U 


124! 


04U 


inc 


04U 


mi 


04U 


1218 


04U 


1288 


wu 


\m 


04JU 


\m 


04Ai 


\w 


04A4 


i;di 


04A* 


12E5 


04AA 


\m 


04AA 




04AA 


i:os 


04AA 


1317 


04AA 




04&A 




04AA 



'iilti (1 Izt aotisitf on icrm 2 
SOSDt 0,0,2, l:aS:CCUR 15 

PRICT'OijiUl Uottpti All Uforwtiw t|p*d htn is $«t to tat prjitir" 

KOTaittl « 3 

MaitUlUt tfBo amyt 
UHGRE AARDATA 
FOR TO 17 

READ KEXUHtlfOl ,HEKUI(tl,l)t 

READ RDAJll^U.KEVUUMl.XEVUtll^l.REWdl^l 

rcrr IX 

"9«t dfffiuH rtifent l \\t tni rud viUtf 



OPO* •mSEF.RJP' FCR UPUT AS II 
IKPUT U.FILEI 
35 \m 04*2 WUT lURXUUHEf 

aosi ii 

DPEK FILU FOR IfcW iS 11; * fl et ruqtDt diU 

IKPUT ll t f.EJ(U(0,01; MriqutocY 

IKPUT lt,Kt»OJ(l,0): '*iflhtude 

UW ll ( 5EXUt2 ( 0)i 'itrobi tiliy 

IKfTJT lt,KUU(3,0): 'paltt .tdtb 

1OTT lURElUll.OM Vim tiM 

IKPUT ll,RE>(Ut5 t 0lt 'IU1 tiM 

aosc it 

45 I2BB WW *qtt tftf »utl pitttrn f i I • in* riitf viloit 

CPD •PAmF.RJ?' FOR IttVT AS II 
IXPUT H,FIUt 
IXWT ll,PAWAXEt 

aosi II 



OPEX FKEI FOR ICUT AS Hi 'i»t pattiro JiU 

mm n,EU02a 

IXPUT H,KEfni(i t 9)i *«ri< 

IXTUT M*ftEXU(7*0)t Viput count 

IKPUT II,nCHV(8 v 0)t i offstt 
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6 Ui?tflt Jit PrUttr ftsi 
Pttttri Print ug o^-I7 

Mj« 

*w« Uh 18* Ptriotil Cowatir 1&SIC Cwilir T2 

JXPtfT II. RDEOtl.OH *7 6Hm( 

rex II • 0 TO EJSW-1 

rw n * o io s 

ikput 8i,sanmui,m 

mut j: 

dT 11 
OSSE II 

'fit rmitiif piMttttrt ie im uray 

I©U112,0) > It 'rw I 

HOOJin.OI * It 'nliM t 

f£XJ(M,0)-« Oi 'row ttuiiq 

IEWII3,0> • 0i 'colw* taiciio, 

*rtugr ictive dupUyid tcrtii to tcrtet 0 to a>» ia* tfiipliy ftrmttri 

1411 04AC 

COW 13:L0C1T£ l,3i:PRIK7 'KHOT WHfTIW*! 

CDICS 1 

roa w to 7i 

LOCATE J.l:PRW Oft8im)|ilSCm S,IiPM«T CM8(203)i:lflUTE ll,hPft»T CXHtlffth 

HEIT t 

PC* 1*4 TO 17 

IflCITt I,I:FIU; 0«IU71);aCCJT£ ! t :8:P*HT CUtfUU);aOttU I,;4iPRtfT CWlS(ll4>;:UOTE 1,1 

RIKT. cwnmij 
KEIT I 

KSTME TUU 
FOR 1*1 TO 12 

o 5 isn o<w fc£« n,c;,u;::^Ti-ia,ci:Piiiw cwti(«)| 

'rfisfltr U irnu cnoicti u rtUoa 

CCUJR 14,0 
FOt KPTUl » 0 TO 15 

.50KII DISMESU 

en bwx 

*s«t for fint ihi« tntnr i»< iifMijHt it 
REKJX ■ OiCOLOt 0,7 
45 1U0 OU* tOSUl DISPKBB 

•pritt Urn htitfiifi ia< ioitruction* 
CCLOft 10,0 

loan 4,i( t s-iu(u»uci)/::Min rxaxakuj 

LCCATt 4,41-UKtPATHin£IJ/2:rH1«T PAHUXESj 
50 UfO 04B4 LOCATE 4,*0ifRIKT 'PR JUT LOWTTWj 

C0U« 7:10CATE H,:0:PIW "Jit •pCttOR 1S:PRINT CHRU27UO«ltt2>fO*f I2i)| 
PRUT CXRlt571iCWU:4)jCMRIIj:iiCHRftWitC0LM 7iPtIXT • to position hiebliaKtri cvrior'j 
10CATI 20,HiPaW 'Uu 'pCCLOR 15iPRWT •♦•pCOUR TiPRIMT * or ^tCaOR ISiPRUT •*'} 
USM 7iPftlir U icroll cvrtot vilui up or 4tm»*\ 



Of lilt 




1330 


04 AA 


1 TAT 


04 AA 


IT1I 


04 AC 


1317 


04 AC 


1351 


04 AX 


13E2 


04 AC 


13TJ 


04 AC 


1404 


(MAC 


1404 


04AC 


1404 


04AC 


1404- 


04 AC 


1420 


MAC 


143C 


04 AC 


1458 


04 AC 


1(74 


W AC 


1474 


04 AC 


t474 


04 AC 


1474 


04 AC 


1411 


04AC 


1491 


04AC 


1412 


04AC 


1419 


04 AC 


14C3 


04 AC 






i err 
***t 


0480 




0480 




0410 


I SCO 


0480 


i crn 
lOtu 


Aim 


lir i 


61 BO 


lilA 


0414 


1645 


0414 


IMS 




U45 


0414 


U43 


0484 


1431 


0414 


1157 


0484 


1430 


0484 


1440 


0484 


1440 


0484 


1449 


0484 


1U0 


0484 


1484 


0484 


1484 


0484 


im 


04U 


1412 


0484 


I4C1 


0484 


I4f0 


04B4 


170A 


0414 


170ft 


0484 


1734 


0414 


1793 


0484 


I7ET' 


0484 
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0 268 237 



75 



20 



fttisut M friittr 
* Pat tin h-ittiaf 

W*ul Cat* Sum Uai 



fkSl 

69-17- 
08: Mt 

m Ptrwtil Coipvtir 9 ASIC Coioiltr V*. 



25 \m 04W 

1847 Wit 

187C em 

UTC WW 

IB9C WW 

30 im wu 

mi wu 

IBIS WW 

leas w« 

18BA WW 

u:e w.w 

me ww 

1956 WW 

HE3 WW 

19B8 WW 

17ef ow 



35 



USATI 7I.*;FKI»T MJu *;iC3U)H ISiPMW 'P^CCUm TiPRWT • to prist pitUrn or 'i 
COfiX 11:?FIIT •E'hCOUR TirHIT • to uit to priot lino'; 

mm • or •}:wic« istfsm •s , i:coica 7iPRin • to «« Bottom 

*«t won to vim hid jut crtitti* ui nit 

strax 0,0,0,0 

RETUJtl 

IF HEXS * 10 OR KttUl » U TKCX RFTOWI 

L0«Tt trotUX TOO Mi2*7,(inH5Wl/M»2B»l)-2»WTWERUl/U) 

PRUT KEWUJDWXtOI 

iscm noo iiw.jiauwDBi,*) 
mm usixs nwf iR£Kui,i))RoniiJ£xui t 0Ji 

m ipme 
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6 



'Biiqts* Jtt fristtr ft& 
TO FittKi Printii* #1-17 

in frftwil Cuetttr USIC U**iltr vl 



75 



25 



30 



*5 



Off sit 


D«Li 


50<1TC< 1 1 (14 




lf5f 




iiiuimmm UTA USD IT THIS «CO£ "»»»»»»♦«• 


11IF 


WW 






11IF 


WW 


AiutfiATA* 




11C4 


WW 




Rx*, Ml, III* ,10000,1,1,14 


11C4 


MM 




V •/III*, 130. 8,1, It 


i it* 


WW 




o8*/ll f Ul.r,t3r9f.3 T .S,.5,14 




WW 


wtl H r\u villi 


•.MIIMIl.O.t.lt 




WW 


fUTl Tiu 
VMll AIM ll«f 


*/IH*, 111,8,1,11 


ltd 


WW 


fiATA *F*11 Tl» 


•.•IIP.W.O.Ltt 


HOC 


WW 


BJT1 "Erirf Sii> 


it*/l.lir,.O0S,.OO5,.0O3,<3 


1902 


WW 


MIA KfffllV MUX 


•-•ii* ti.o.i.o 




WW 


SMI *1 Aits Offset 


ia'/l. HI*, 2,0,. 003,13 


11W 


WW 


CAT! *T Axil Offset 


ii'/l.lll*,:^,, 003,43 


115B 


WW 


DATA 0.0. 0.0 




lt3A 


WW 


MTA "/'.0, 0.0,0 






WW 


DAK 'Re* to frint 


VII\Tt,l ( l,78 


hoe 


WW 


DATA *Co1qm to fmt 


•/ll',t!,l,l,74 


HEO 


WW 


DATA *Ro« Spicing 


io , /«,nr,3,o,.oo3 t 77 


1YE2 


WW 


DATA *Co1oia Sficinq 


U-/l,lir,J l O l .005,72 


m< 


WW 


DATA •',••,0,0,0,0 




19E4 


WW 


MTA ",0,0,0,0 




W8 


WW 






\m 


WW 


TAJUl 




no 


WW 


DATA 3,1,218 






WW 


DATA 3,28,210 






WW 


DATA 3,31,210 




1TO 


WW 


DATA 3,80,111 




itn 


WW 


DATA 5,1, IT? 




11F7 


WW 


DATA $,28,204 




\m 


WW 


DATA 3,s<,:o4 




11FJ 


WW 


DATA 3,80,111 




MF? 


WW 


DATA 18,1,112 






WW 


DATA 18,28,208 




IWt 


WW 


DATA 18,34,208 




1MJ 


WW 


DATA 18,80,217 




1*03 


WW 






im 


WW 


on sci 




IMC 


WW 






IMC 


WW 






7941 


WW 







SW24 8ytn AvtiUilt 
447U lytti Frt* 

• V«fQtM ErrorUl 
f Stnrt Error dl 
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Rugeat*Jit Prfnttr • • • • • • • - - PAW • I 

RtageM Filing 07-09-66 

13:04t35 

Offset 3aia Sa-i-ce *.ui I6S Personal Co water BASIC Coapiler V2.00 

0030 OCvt "c*. STTTL£:*Ki*?Mi J«t Printer* ISUBTITLE; 'Reagent Filing* 
0030 OCW "?Z7JL£ - *nS*ni£* Fill Banoling for reagents 
0030 0036 

0030 0506 'AUTOS* - X. A. Enetold 
0030 OCC6 

0030 «C6 CC?YH;&n (CI I5« ASSOTT LABORATORIES 
0030 0096 

0030 000$ EETUICH • 1.1 03-O7-B6 XAE Ad did notes and description 
0030 CS06 * 1«0 02-H-B6 XAE Creation of initial code 

003O OCOe 

0030 ©004 'STSTtTl - This nwJt caa only be cctpiled by the BASCTJK 
0030 C006 ' COTPiLER, it nill not run under the INTERPRETER'.! 

0030 0006 

0030 0004 'SESvUPTlOK: 

0030 0006 * This todule allow file handling for reagents. Jfhen inv 
oked, it displays 

0030 0006 * the current contents of the reagent directory in 4 colu 
ins M 20 entries 

0030 0004, * each* The reagent vhicn is currently selected for prin 
tiag is larked by 

0030 W04 " an asterisk to the left of the reagent naae. After the 

directory is listed 

0030 000^ * the user is presented «ith 5 aenu choices. The left an 
d right arrows arc 

0030 0006 ' used to highlight aenu iteis and the enter key is used 

to invoke action. 
0030 ' 0006 * The aenu choices and neir actions are: 

0030 0006 

0030 0006 f DELETE - Reiove a reigent file free the directo 

nr 

0030 0004 ' COPY - Copy a reagent file to a ne* reagent n 

ue, saving the. old reagent 
0030 0006 * REMAKE - Change the naae of the reagent without 

changing the reigent itself 
0030 0006 ' SELECT - S*Ut a reagent for printing 

00JO 0004 * UIT - Return to the- earn aeng 

0030 OCtt 

0030 W06 'DATA DICT1CHARY 

0030 0004 * TTFEX Which type of valid key «as pushed 

0030 0006 ' KEKUX Which etna itea is being pointer to (0-4) 

0030 0006 * 0IFF1 Oistanee to aove KEKUI at left or right arro 

v 

0030 0W6 * FIAS1 Error type 0-4 

0030 0006 ' P01NTER1 Position of REAKAXEJ in directory list 

0030 0006 ' REAXUm Kuiber of reagent nates in directory 

list 

0030 0005 ' TEJ7X Storage for integers during reagent copy 

0030 0006 ' AS nisc. input string 

0030 WW ' FUNCTI Printed at bottoe of screen during proapt fo . 

r reagent naae 

0030 0006 ' FEASAKt Reagent na*e currently being worked on 

0030 0006 ' SEL5AHEI Reage&t nase currently selected for printing 

0030 0006 * FILE* Filenase of reagent data file 

0030 GC06 ' SFiLEI Filenaae for source reagent data file used d 
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0 268 237 



Pea gent 
Reagent 



Jet Frinter 
Film* 



Offset Da;* ;o*,rce Unt 



PABE 2 
15:04t35 

US Personal Coaouter 5hS*C Coeoiier V2.00 



brinj C53Y 

0030 00C6 * DHLE* r iitnjj« tor destination reagent data Hie o 

se3 during cepy 

0030 00v& ' UEVKAttl Se* reiqtnt nate for COPY and RENAME 

0030 0OC6 * TWf Reieent na»is are held hire as the directory 

is Seing rt-wntten 

OC30 WCt * KEVFILEl uestination filenase used while copying rug 

e*t data files 

0030 0006 * riSSA6cl A tessage printed at the bottoa of the scree 

it 

0030 00U * rSKUSH,S1 Array of strings containing the short and lo 
og tenu nates 

0030 000* • ERRKSS* Message printed when any error occurs 

0030 000* • ERR* Appended to EwmSS* to indicate nature of er 
ror 

0030 0004 m i?AGE 



Reagent Jet Printer 
Reagent Film; 



Offset 


OiU 


0030 


ooc* 


0047 




0047 


OOCi 


0040 


0O06 


0054 


0008 


0034 


0008 


005F 


0008 


0069 


OOOC 


0078 


OOOC 


0082 


OOOC 


0085 


OOOC 


00AA 


OOOC 


0CCF 


OOOC 


00E9 


OOOC 


00E9 


OOOC 


O0F8 


OOOC 


00FC 


OOOC 


00FC 


OOOC 


0100 


OOOC 


0100 


OOOC 



PftBE 3 
07-09-36 
15:04:35 

IE* Personal Coiouter BASIC Coioiler V2.C0 



Ecurce Line 

SVB RE*=£3T.FJLE STATIC 

6CSUB IKITIAUIE 
TYPE! « 0 

m\s TY?n O 3 
M « 

KHJIE A$ » 

AS » WEY* 

IF AS « CHRKO) ♦ OiR*l75) THEN TYPEI • 1: 

'left arrow 

IF At « CHRflOl ♦ CKRS (77) THEN TYPEI « 2: 

'right arrow 

IF At * CKRI (131 THEN TYPE! « 3: 
'<cr> to execute selection 



VEHO 
EXIT SUB 
REM tPfcoE 



ON TYPEI 60SU3 Tl, T2 ( T3 
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Re*gent U\ Printer PASE 4 

Rugtnt Filing 07-09-36 

15:04:35 

Offset D«U Source Uae Ptrsenii Ceicutir BASIC CoopiUr V2.00 



35 



0100 


oooc 


-i»4H4«» 5US-*C3TJl.i3 FC3 TKIH K3SUU «h»m# 


0100 


oooc 






0100 


oooc 


Tl: 


'jfU arrow 


0105 


oooc 




mn » o 


010C 


oooc 




IF REST; * 0 TWEX KETUKX 


0116 


COCE 






0122 


0510 




KEV.XSTJ . 


0128 


0010 






012C 


0010 






012C 


0010 


T2: 


'right arret 


0131 


0010 




ttpq * 0 


on? 


0010 




IF JEWS * 4 THEN RETJKH 


0147 


0010 




OIFrl « 1 


014E 


0010 




50 SUB JttX.KBOJ 


0154 


0010 




KETURJt 


015B 


.0010 






0158 


0010 


U: 


'<c/> (execute selected eenu itei) 


0150 


0010 




LOCATE :5,I:PRIKT SPACE! 179); 


017A 


0010 




W ItEKUX * 1 GOSUB T3A, T3B T T3C, T3D, HE 


018F 


0010 




G3SUB KEG). ON 


0195 


C010 




RETURX 


0199 


0010 






0179 


0010 


REK S^ftBE 



50 



60 
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* * 


* • • • - t\ mm m m m m m 




* 


m m m » » + » • 


Reage* Jit fcintrr . - I - * * BASE. * 5 


Reagent FUUig 


07-09-B6 






15:04:35 


Offset 


Oat! 


Sourci lint IB* Personal Cospsttr BASIC Coipiler V7.00 




0010 


T3A: 'delft* reagent 


UlTfc 


0010 


rtm « 0 


0IA5 


0010 




01AF 


0014 


bosub err.souRCE 


0165 


0014 


IF LEX (REA HAKES J » 0 THEN RETURN 


01C7 


0018 


IF REMAKE* « SELXAKE* THEN FLASX « 4:50SUB SKOV.ERP.ORs 






return 


01E7 


001E 


6tJSUB SEARCH 


OltO 


001E 


IF PDIKTERX * 0 THEN FttGX « 1:50SUB SHOV.ERRGR;RETURN 


020? 


0020 




020? 


0070 


KESSASE* « •Deleting ■ ♦ REAKAKE* ♦ • pjtm K 4 it„ 

• 


0220 


0024 


• 

B0SUB KESSA6E.0N 


0226 


0024 




022* 


0024 


Vmite directory deleting REANAHES as indicat 






ed br POINTER! 


0226 


0024 


nu •READIR.OUJ' 


022D 


0024 


HAKE •READIR.Mf AS 'READ1R.QU)' 


0237 


0024 


Of EN 'REAC^OU)' FOR INPUT AS 11 


0243 


0024 


OPEN •READJR.RJP' FOR OUTPUT AS 12 


025A 


0024 




025A 


0024 


INPUT II , REANUHX 


026C 


0026 


REAuuni < reanuhx - i 


0275 


' 0026 


WRITE 12, REANUHX 


028& 


0026 




02B6 


0026 


IF REAHimi « 0 THEN SOTO DIR.ODNE 


0295 


0026 


FOR IX « t TO REANUHX ♦ 1 


02A4 


0028 


INPUT t UKEASAKES 


0296 


002B 


IF IX <> PClKTEnI THEN PRINT !2 t REAXAKE* 


0203 


002A 


NEIT 11 


02E5 


002A 




02E5 


002A 


DIR. DONE: 


02EA 


002A 


CLOSE U; CLOSE 12 


02FB 


002A 




02F8 


002A 


'reiovf data Hit 


02FB 


002A 


FILEI * RISHTJI5TRJ (P0;JiTERI) f LEKC5TRS (PDINTEKI) ) -1 ) ♦ 






•REA.R3P* 


031C 


002E 


KILL FILEI 


0323 


002E 




0323 


002E 


*renaie retaining data files to maintain linked 






list to directory 


0323 


002E 


WHILE tnEANUKX ♦ 1) > POINTERX 


0333 


002E 


SFILEJ * RI6KTt(STR$(P0lNTERX*ll ,LEN(5TRf (POINT 






ERIMU-U ♦ 'REA.RJP' 


035? 


0032 


0FILE5 * RIBHTf (STRJIPOINTERI) ,LENtSTRJ (POINTER 






X))-ll ♦ 'REA.RJP* 


037D 


0036 


HARE SFlLEf AS OFILE* 


0387 


0036 


POINTER! « POIKTERX ♦ 1 


0370 


0036 


VEND 


0393 


0036 




0393 


0036 


60SUB nESSASE.OFF 


039? 


0036 


REAKAItEJ * SELKAWEt 


03A3 


0036 


60SUB T3DA 


03A? 


003i 


6GSUB DISP.D1R 
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Rsisent Jet Printer PAGE i 

Reagent Filing 07-09-B6 

15:04:33 

Offset Ditt Source Line IB1 Persoml Caiouter BASIC Ceepiler V2.00 

03AF 0036 RE7VKX 
03B3 0036 

03S3 6036 REH SPA6E 
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Rcagir.t Jet Printer * ^ftB5 " 7 

Re*gent Filing 07-07-86 

15t04t35 



6 


WfMt 


UU 


Source lint Personal Coipoter BASIC Coipiler V2.00 




03B3 


0036 


TT3: 'copy rtiqmt 




0338 


0036 


TYPEI * 0 




03BF 


0036 


IF REAWmi ■ 80 THEN FUS1 « 3:S0SUB SHOW. ERROR: RETURN 




03DB 


0036 


FUKCTI « 'Copy' 


10 


03E5 


0036 


605UB SET, SOURCE 




03EB 


0036 


IF LENIREANAHES) • 0 TKEH RETURN 




o:fd 


0036 


60SU8 SEARCH 




0*03 


0036 


IF POINTER! » 0 THEN FUBX « S:G05UB SHOW. ERROR i RETURN 




041F 


0036 




15 


041F 


0036 


BOSUB BET.yE'J.NAKE 




0425 


0036 


IF LEHCHEVNAKEfl • 0 THEN RETURN 




0437 


0O3A 


IF LENtNEVXAflEI) > 15 THEN FIA6X » 2;SDSUB SH0«.EHROR:R 








ETURK 




0457 


003A 




20 


0457 


003A 


WESSABEt * 'Copying * ^ REAXAflEJ ♦ ■ to 1 ♦ NEVXAHEI ♦ 








* Please tail..' 




047C 


003A 


. 60SU3 MESSAGE. OK 




0482 


003A 






0482 


003A 


**rfd new n»ie it end of directory 


ss 


04E2 


003A 


KILL *READIR,0U)* 




0439 


003A 


KAKE 'REMHR.RJP' A3 'READIR.CU' 




0473 


003A 


OPEN •REA0IR.0L0 B FOR INPUT AS 11 




04A4 


003A 


OPEN 'REAOIR.RJP' FOR OUTPUT AS 12 




04B6 


003A 




00 


0486. 


003A 


INPUT 11, REAXWI 




04C8 


003A 


REANUKl * REWUHl ♦ 1 




04D1 


003A 


WRITE l2,REAMUIft 




04E2 


003A 






04£2 


003A . 


FOR II « I TO REttttX - 1 


35 


04F1 


003C 


INPUT ll f TE*?$ 




0503 


00*0 


PRINT 12, TEKPJ 




0513 


0040 


NEIT IX 




0525 


0040 


FRJKT I2,NEWNAKEI 




0535 


0040 




40 


0535 


0040 


CLOSE 11: CLOSE 12 




0543 


0040 






0543 


0040 


'create copy of dita file 




0543 


0040 


FILE* » RlBHTt(5TR*(PQIRTERU ,LEK($TR$ (POINTER!) )-l) ♦ 








•REA.RJP' 


45 


0567 


0040 


. WEVF3LEI « R1BHT$ (STRI (REAKUKX) ,LEKCSTR$ (REANUHI) ) - l> ♦ 








•REA.JUP' 




0586 


0044 






0588 


0044 


OPEN FILES FOR INPUT AS 11 




057C 


0044 


OPEX KEWFILE* FOR OUTPUT AS 12 


50 


05AE 


0044 






05AE 


0044 


INPUT lljTEKP 




05C0 


0048 


WRITE I2JEJ1P: -frequency 




0500 


0048 


INPUT ll f TEHP 




05E2 


0048 


VRITE I2,TE«Pi 'pulse ndth 


55 


05F2 


0048 


INPUT U t TEKP 




' 0604 


0048 


WRITE I2,TEJ1P: 'strobe deliy 




0614 


0048 


INFUT ll.TEW 




0626 


0048 


WRITE I2JEHP: 'nonle 




0636 


0043 
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Reagent Ui Printer 
Reagent Filing 



PAGE 8 
07-09-86 
13:04:35 



Offset 


Dili 


Source Line IBK Personal Coeouter BASIC 


OWo 


0048 


INPUT li,TEKPI 




0643 


0048 


FR1KT I2,TOTJ: 


'concentration 


065B 


0048 


INPUT li ,TE*PI 




066A 


0048 


PRINT l2 f TEHPSs 


'density 


067A 


0048 


INPUT IIJERPI 




06BC 


0043 


PRINT i2,TEKPJ: 


'viscosity 


069C 


CC48 






069C 


0046 


CLOSE tiiCLOSE 12 




06AA 


0048 






06AA 




6GSU8 KsSttE.CfF 




O6B0 


0048 


E05U8 DISP.CIR 




06B6 


0043 


. RETUaN 




068A 


0048 






06BA 


0048 


REH JPASE 
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. * • . 2 0 268 237 ^ - w 

• * * * mm 



Reisee*. Jit Printer PAGE 7 

Reagent Fiiicg 07-07-56 

15:04»35 

Source Line JBN Personal toiputir BASIC Coipiler V2.00 

TZC: 'rena«e reagent 

typex * 0 

FUNCT* » 'Rename - 
BOSUB SET. SOURCE 
IF IBUREANAKEJ) « 0 THEM RETURN 
BO SUB SEARCH 

IF POINTERX « 0 THEM FIAGX « U60SUB SKOV. ERROR: RETURN 

60SU6 6ET.UEV.HAKC 
IF LEXtXEVHAREf) * 0 THEM RETURK 

IF lEHlHEWAKEtJ > 13 THEN FUSX « 2i60SUB SHQV, ERROR :R 



Offset 


Bata 


OfeBA 


C04S 


065F 


0043 


OiCi 


0048 


0600 


0043 


0606 


O048 


06EB 


OQ48 


06EE 


0048 


070A 


004B 


070A 


O048 


0710 


O048 


0722 


0048 


0742 


0048 


0755 


0048 


077A 


0048 


0780 


O04B 


0790 


0048 


0780 


0048 


0787 


004B 


0791 


0043 


07A2 


0048 


0784 


0048 


07B4 


0048 


07C6 


0048 


0707 


0048 


0707 


0048 


07E4 


004A 


07F6 


0044 


0813 


004A 


0830 


00 4A 


0842 


0O4A 


0842 


00 4 A 


0850 


004A 


0650 


OOU 


0856 


004A 


0875 


004A 


087B 


00 4* 


0B7F 


00 4A 


087F 


004A 



ETURN 



IDA 



IF KEVHAKES - REANAHE* THEK RETURN 
HESSA6E* » 'Renaiing • ♦ REAKAHEi ♦ • to f ♦ NEWAHES * 
PI use viit..' 
BQSUB KE5SABE.0H 

'renaeing reagent naie in directory 
KILL "READIR.QLO* 
HAKE •READIR.RJP' AS , REAOIR.OU> , 
OPEN •READIR.OLD' FOR INPUT AS II 
OPEN 'READIR.RJP' FOR OUTPUT AS 12 

INPUT II, REWUffll 
WRITE I2 ( REAKUHI 

FOR II * I TO REAXUFi 
INPUT ll,TE.Vl 

IF IX <> POmURI THEN PRIKT 12, TEMPI 

if ix * poik*e;i then print i2 t ne^hawei 

NEIT IX 

CLOSE IWCIOSE 42 
SO SUB KESSA6E,0FF 

IF REAKAfcES = SEUA5ES THEN REANAftES = NEUKAKES: 6QSU8 T 

SOSUB DISP.D1R 
RETURN 
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* * ** * 0 268 237 • * * * * * 

* * » n m m m * m Ct. a* 



Seaoent Jtt Printer r PASt 10 


Rugent FiUaq 


07-09-ei 






15:04:35 


Offfi: 


liU 


sccct Li it rersonii boipvttr basic kotpiler V2.00 


057F 


CC45 


™i "**i«t fiiowt tor printing 


0B3i 


wu 


*YrSl * 0 


0BB5 


C0i4 


ru&<$ x tlifCt 


0895 


0C-4A 


o E i . SuURCt 


0393 


GC*« 


Tt r n ior£u*Kf i » ft tutu dctiidv 


08A5 


0C*A 




OBCO 


00^5 


30S*»*B T3CA 


03C6 


v04A 


cnctie mn htd * 


OBCC 


WW 


Ktluwt 


06D0 


0C4A 




0800 


Cv<fi 




ft on 


* Mi 




08DB 


004A 




08F7 


004 A 


i 




004A 


ntsinot* * selecting ▼ KtWiRnt* ♦ Please iait« 

• 


090E 


om 


KJSUB KE5SASE.CH 


0714 


004A 




0914 


cow 


'change entry* in reagsnt default file READEF.R 






*P 


0914 


004A 


0FES •REAOEF.ni?* FOR OUTPUT AS 11 


09Ii 


C04A 


FILES * RIBHTStSTRJlPOlHTrKX^UKCSTRJlPOIKTERI))*!) ♦ 






•REA.R4P* 


094A 


004* 




094A 


«4A 


PRIWT 11 .FILES 


095A 


WIS 


PR1HT tl.REAXAtft 


09&; 


eo44 




09tA 




aosE 11 


0971 


C04A 


ECSUB *sSSASE.5FF 


0977 


ooa; 


RTTURX 


097B 


OWA 




0978 


004 A 


TJE: 'exit reagent filing 


0980 


004A 


RE7URS 


098* 


004; 




0984 


O04A 
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BAD ORIGINAL 








* 


» » « 0 266 237 - * mm - » e*<u^» 








^ ' ^ ^ ^ At ft 




• * 




» «• * » «»* « * * * « 




II 


• * 


A Oft m O «* «* « 




* 


* • 










Filioq 




07-09-86 


Glfiit 






I3:04i33 


UU 




Lint !W Personal Coioottr BASIC CoapUtr V2,00 


0964 


C34A 








ecu 




FCJKTERX » 0 


0990 


M4A 




C5EX 'READIR.RJP' FOR IKWT AS II 


09A1 


W« 




IK?UT tt f RCAHUKZs" $it nutber of mounts io dine 






Ivy 


0733 






IF REANUKI * 0 THEN CLOSE IliRETURN 


09C9 


C34A 




temp* 


09D: 


004A 




ma (poiktek: < r£axvmu aho (reaname* o tempi) 


09FB 


ecu 




LIKE INPUT U t TOT$ 


OAOE 


oou 




PQINTERI » POIHTERX ♦ 1 


OAil 


oo;a 




VEND 


QAU 


004A 




IF REANAMEI <> TEMPI THEN POINTER! « 0 


0A2A 


004A 




aosE ftl 


0A31 


004A 




RETURN 


0h35 


004A 






0A33 


004 A 


GET.SOltRCE: 


0A3A 


OWA 




LOCATE 23,1:C0L0R 15,0:PR!HT 'Enter Reagent Nue to 'FU 






NCT*' 




OA&C 


004A 




LIKE IKPUTj^REAHAME* 


0A7A 


00 4A 




LOCATE 25 t l;PRI«T SPACEK79); 


0A97 


00 4 A 




RETURN 


0A9B 


00 4A 






0A9B 


004A 


SET.NEW.NAMEi 


OAAO 


O04A 




LOCATE 23,1;C0L0R 15 f 0;fR!NT 'Enter Ken Reagent Kite 


OACi 






LIKE IKPUT; '\KEm*E$ 


0AD4 


004A 




LOCATE 25,l:rRlNT S?:CEH79); 


OAFl 


004A 




RETURN 


OAFS 


004A 






OAFS 


004A 


CI5P.DIS: 'display rngut directory jn 4 coluins of 20 r 

rjt c 


OAF A 


O04A 




'read selected reagent into SEUAMES 


OAFA 


004A 




OPEN 'READEFiRJP* FOR INPUT AS 11 


0801 


004A 


e 


INPUT ll t SELNAMElt 'read and discard data fill nat 


Vols 


MIA 




INPUT ll t SELNAMEI: 'read and save reacent naif 


0B2F 


004A 




CLOSE 11 


0834 


C04A 






0B3i 


004A 




OPEN 'READIR.RJP' FOR INPUT AS 11 


0B47 


C04A 




IKPUT ll f REANUMI:* read nuiber of reagents 


0B59 


004A 




ME5SA6EI • 'Reading Reagent Oirictory Please Naif 


OBW 


00 4A 




S0SU8 MESSAGE. ON 


0B6? 


OWA 




FL«l • 0 


0B70 


004A 


I 


TERPl » REANUMI - Is IF REAHUMI < 80 THEN TEMPI • REANUM 


0B8B 


004C 




FUR II « 0 TO TEMPI 


0B97 


004E 




LOCATE (II MOD 20)M t (INT(JX/2OU2OHl 


OBCA 


00 4E 




PRINT SPACES (18)} 


OBDA 


004E 




NEXT II 


OBEC 


004E 






OBEC 


004E 




FOR 11 * 0 TO REANUBI - 1 


OBFA 


0050 




1XFUT tl r REANAME$ 


OCOC 


OC50 




LOCATE (II MOO 20) ♦! ,1^(11/20)120) +3 


0C3F 


0050 




PRINT REANAMEI; 


0C4C 


0050 




IF REMAKES ». SELNAMES THEN LOCATE (IX MOD 2Di* 
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BAD ORIGINAL 



* » • * » 0 268 237 - * <B» ««>•.- 

* m # » a * a a « n 

ReagenuJet Primer J • **WE«fi 

Regret Fllug 07-09-86 

13:04iJ3 

Off sit Data Source Uni It* Fertoaai Ccwuter SASIC Coipiltr V7.00 

J ( tlKTU:ra)*20)*t:PF:)lT »f; 

0C9B 0050 KHT IX 

OCflO 0050 ODSE II 

0CE7 0050 SOTS KHSAoE.wrF 

OCW 0050 UTISX 

occ: OCM 

OKI OOiO' U1TIAL1I£: 

oca ooso oin im'i«,n 

OCa 0078 K03XO.O) * 'tiletr* 

OOF 0078 KtKWtO.n * '*ewve * reagent fill froe the directory' 

OCFft W73 rSK3ttl,0) * 'Copy' 

0015 0076 K£KttU,U * *Co?y a rugeot file to a nev reagent nate 

CC2E CCTB KBW2,0) » 'RenatV 

0048 0078 . KtK»(2,l) - Senate a reagent file in the directory 4 

OW W78 KNJ*13,01 * 'Select' 

0084 0078 K£J£jm,i» « 'Select i rtagent file to be printed' 

ODAO 007B KEKW4,01 » 'Exit' 

OOBB 0078 fttKUm,l) * 'Return to the tain aena' 

0D07 0078 

0DD7 0078 CfllOR ?,0:CLS 

ODEA 0078 LOCATE 21,1 

0DF7 007B FOR H * I TO 80 

0DF£ 0078 FR1KT 'D'; 

0E08 007B KEIT U 

0E13 0078 

0E1B 007B FOR fSKSl » 0 TO 4 

0E21 0078 BuSUB KEW.gF? 

0E27 0078 KIT KOITX 

0ET7 0078 

0E37 0078 GOSUB MSP.01R 

0E3D 0073 IF FIASI > 0 THEM 50SU3 SHOV. ERROR 

0E4E 0078 KEXUX " 4 

0E55 0078 B3SUB rTOU.GX 

0E5B 0078 

0E58 0073 RrTURX 

0E5F 0078 

0t5f 0079 KElf.KSKJ; 

OE44 0078 SOSOI KEXU.OFF ' 

OE&A 007B r*WJl » KD«J1 ♦ 01FF1 

0E7* 0073 fXVQ.CI 

OHO 007? RETUW 

OESO 0078 

0E80 0078 KKU.OKi 

0E85 0078 LOCATE 22, IREXytiiOMIB 

0E9C 0078 COLOR 0,7 

OEAB 0078 FRIKT RtHJ*UIEWX,0)| 

OEC* O078 LOCATE 23,40-LEJllKEKUJ ULNUX,!) >/2 

OEFA 0078 COLOR 7,0 

0F06 0078 PRINT RtMJf (KEXUX, 1); 

0F23 007B RETUMi 

0H9 0078 

0F29 007B KEHU.CFF: 

0F2E 0078 LOCATE 22, (KEXUXHOMIB 



68 



SAD ORIGINAL 6} 



RiigMt Jit Printer * * PASE* J? 

Reigtnt Filing 07-09-36 

I3:04i35 



Offset 


Data 


Source Line \to Fcrsonil Coeouter BASIC Coepiltr V2.00 


0M5 


0078 


KLCR 14,0 


ofm 


007B 


FR1KT KEJrjnKEKUl.Oli 


0F6F 


0078 


LOCATE 2: i 40-LEK<KENUlthXHUI,i)»/2 


0FA3 


0078 


PRIKT SPACES tlEN WcKltf (REKUl, 1) ) ) ) 


0FC8 


007B 


returx 


OFCC 


0078 




OFCC 


0078 


SHOX.ERROKi 


OFD1 


0078 


OM FLASI GDSUB ERl, ER2, ER3, EK4 


0F12 


0078 


EJUWSSJ » ERRS ♦ * Strike *ny key.,' 


0FF2 


0080 


LOCATE 24 t 40-LENIERR«S6l)/2 


1014 


0080 


COLOR 13,0 


1020 


0080 


PRIKT ERKHSSI; 


102D 


0080 


A* « " 


1037 


0080 


WILE A* * " 


1C46 


0080 


A* • IKKEYJ 


1050 


0080 


lf£HD 


1053 


0080 


BOSUB RESSA6E.0FF 


105? 


0080 


RETURN 


1050 


0080 




105D 


0080 


ER1: 


1062 


0080 


EKR* « REAKAnEI ♦ • Hot Found in the Directory" 


1072 


0080 


RETURN 


1076 


0080 




1076 


0080 


ER2: 


107B 


0080 


EKRS * 'Recent Hut is too Lon$ (15 characters in.)' 


1095 


0080 


RETURN 


1099 


0080 




1039 


0080 


ERJi 


108E 


0080 


ERR* s 'Directory is Fall ISO regents •«•)• 


1078 


0080 


RETURN 


I09C 


0080 




109C 


0080 


ER4: 


tOAl 


0080 


ERR! » 'Cannot Kodi f y EELECTd recent Nae' 


10A8 


0080 


RETURH 


10AF 


0080 




10AF 


0080 


KESSABE.CX: 


1QB4 


0080 


LOCATE 24,38 - LENinE5SA6E»J / 2:C0L0R U.OiPRlHT KESSA 










.0080 


RETURN 


10F3 


0080 




10F3 


0080 




10F3 


0080 


RESSASE. OFF i 


10F8 


0080 


LOCATE 24,hCGLGR 15,0:PRINT SPACES(79)j ' 


U21 


0080 


RETURN 


1125 


0060 




1125 


0080 


EKD SUB 


U2C 


0080 




16C9 


0080 





50426 Bytes Available 
45713 Bytes Free 

0 Warning Error (t) 
0 Severe Error <s) 
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BAD ORIGINAL 







. *(J2Bfi 237 , * * • • - 

• . » . r * • . • 






: ■; : : - : : • - 


Reagent 


Jet Printer ** * PA$£. "1 . 


Pattern 


Filing 


07-07-86 




15;IM6 


Offset 


Data 


Scvrct Uni IBK Personal Cciputer BASIC Coipiler V2.00 


0030 


MC6 


iTITlSi'Reacwt Jet Printer iSUBTUtE: 'Pattern Filing' 


0030 


OOCe 


*OULZ - •PATFILE' Fill Handling for patterns 


0030 


0004 




0030 


O006 


•AUiKCR - «. A. Enevold ' ' 


0030 


0006 




0030 


cow 


'E?YRJSHT (C) I TO AflBOn LABORATORIES' 


0030 


0006 




0030 


0006 


■RcVlSICS - 1.0 02-12-66 KAE Creation of initial code 


0030 


0006 


• 


0030 


0006 


'SYSTEM - Tbis code can only be com i led by the BASCW1 


0030 


0006 


BKPILER, it -ill not run and sr tht IHTERrRETER!! 


0030 


0096 


• 


0030 


0006 


•ylSOUPTIW: 


0030 


0006 


This todule allow file handling (or patterns. When inv 






ottd, it displays 


0030 


0006 


tht current contents of the pattern directory in A colu 






•ns of 20 entries 


0030 


0006 


each. The pattern which is currently selected for pno 






ting is tarktd by 


0030 


0006 


an asterisk to the left of the pattern nut. After the 






directory is listed 


0030 


0006 


the uer is presented • i th 5 aenu choices* The left an 






d right arrows are 


0030 


0006 


used to highlight ttnu ittn and the enter key is used 






to invoke action. , 


0030 


0006 


The eenu choices ana tMir actions are* 1 


0030 


0006 


• 


0030 


0006 


DELETE - ?f»ort a pattern file fros the directo 


0030 


0006 


r Y 

COPY - Ccoy a pattern tile to a new pattern n 






ist, saving the old pattern 


0030 


COM 


REXAnE - Change the naie of the pattern without 






changing the pattern itself 


0030 


0006 


SELECT - Selct a pattern for printing 


0030 


OO06 


E1IT - Return to the wain tenu 


0030 


0006 


• 


0030 


OO06 


•data dictiokary 


0030 


0006 


TYPE! Which tyoe of valid key was pushed 


0030 


0006 


HEW! Vhich tent itea is being pointer to (0-M 


0030 


000* 


Dim Distance to lovt KEHUX at left or right arro 


0030 


0006 


* 

FLAfil Error type 0-4 


0030 


0006 


POIKTERX Position of PATXAHEf in directory list 


0030 


0006 


PATWWI Kuaber of pattern naaes in directory 






list 


0030 


0006 


ELKUKI Nutber of elcieots in a pattern file 


0030 


0004 


TEhTX Storage for integers dunnq pattern copy 


0030 


0006 


II Counter used during pattern copy 


0030 


0006 


JI Counter used during pattern copy 


A AT ft 


0006 


AS Rise, input string 


0030 


0006 


FUIXTI Printed at bottoi of screen during proipt fo 






r pattern oaae 


0030 


0006 


PATNAKEI Pattern naae currently being worked on 


0030 


00O6 


SEUtAHE* Pattern naae currently selected for printing 



70 



.0^68^37 



Reagent 
Pattern 



Ui Printer 
Filing 



Off sit CaU Scarce liee 



PASE 2 
07-0M6 

IHX Personal Ccwuter BASIC Cospiler V2.00 





0030 


O03o 


FUJEt FUenaie tf pattern data fill 




0030 


OC06 


z' rilcnaae ?or scarce *aviern out nit uicq b 


70 






•ri&9 cd?t 


0030 


CCD 6 


i LET Filenait tor destination pattern ana me u 








led tfwrictj cooy 




0030 




ttWAKU Hi« pattern met for COPY and REHAHE 




0030 


ecu 


Pattern nues are held here is the directory 








is being rewritten 


IS 


0030 


CCCi 


KEVFILEJ Destination filenaie tsed while copy icq pitt 








en data files 




0030 


COW 


KESSAfiE* A iissage printed at the bottot of the scree 




0030 


C006 


s 

KEKU*(4,1) Array of strings containing the short and lo 


20 






eg te*a sates 




0030 


Cwvi 


ERRKS8* Restate printed when any error occurs 




0030 


W06 


ERR* Appended to ERRHSSt to indicite nature of er 








ror 




0030 


OO06 


TEMP Storage of real variables while copying pitt 


25 






ero data files 




0030 


COC4 


RE* SPABE 


30 


Seaoent Jet Printtr P*SE 3 




Pattern Filing 


j07-09-B6 








-15:11:46 




Offset 


Data 


Source Line IBK Personal Cwputer BASIC Compiler 72,00 


35 


0030 


0004 


SUB PATTERN. FILE STATIC 




0047 


0006 






0047 


0006 


GOSUB INITIALIZE 




• 0040 


0006 


TYPEI » 0 




0054 


0008 




40 


0054 


0008 


WHILE TYPEI O 3 




005F 


0008 


A* • •• 




0069 


OOOC 


WILE A$ « " 




0076 


woe 


A* » IKKEYf 




0082 


OOOC 


■TNO 


4$ 


0085 


OOOC 


IF At ■ CHR$ (0) ♦ CHRK75) THEK TYPEI « li 








'left arrow 




OOAA 


OOOC 


IF Af s CHRSIOJ ♦ CHRS177) THEH TYPEI » 2i 








'right arrow 




OOCf 


OOOC 


IF A$ * CHRJU31 THEM TYFEI « 3; 


60 






•<cr> to execute selection 




OOE? 


OOOC 






00E9 


oocc 


OX TYPEI 60SU8 Tl, T2, T3 




OOFB 


OOOC 


VEND 




OOFC 


oooc 




65 


OOFC 


OOOC 


EI IT SUB 




0100 


OOOC 






0100 


OOOC 


m fPAGE 



71 



„*&g6g 237 



Rewer.t Jet Fritter PASS * 

Pattern Filiog 07-0?-? & 

15:11:U 



Offset 


uu 


Source line I LB Personal Cosouter BASIC CoioiWr 


0100 


oooc 


-iHttMi SUB-r.QUTIKES FvR THIS KODUIE ««*•« 


0100 


oocc 






0100 


oocc 


Tl: 


*left irron 


0105 


oooc 




vtm » 0 


010C 


oocc 




IF KENUX * 0 THEN RETURN 


ons 


oocc 




DIFFI « -I 


0172 


0010 




BCSUB KE¥,KEWJ- 


012B 


0010 




RETURN 


012C 


0010 






012C 


0010 


T2; 


'richt *rro« 


01:1 


ooto 




TYFEI » 0 


one 


0010 




IF KEKUX = * TKEX RETURN 


0H7 


0010 




DIFFI « I 


QUE 


0010 




605U8 KEV.KEKU 


0154 


0010 




RETURN 


0158 


OO10 






0158 


0010 


T3: 


'<cr> (tifcotc selected una iUt) 


013D 


0010 




LOCATE 25,iiFRlNT SPACEJC7?); 


017ft 


0010 




ON KENUI 4 I 5CSUB T3A, T3B, T3C, T3D, T3E 


013F 


0010 




G05UB KENU.DN 


0195 


WIO 




RETURN 


019? 


0010 






0199 


0010 


RBI SPA&E 
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• * : : . : : • • * • 
♦ * * i * ■ • 

Rugint Jtt Fnrtir - - • • * " - . * "5^.5 

Pattirtt Filing 07-09-66 

15:11:46 



Of fitt 


OiU 


Secret Lint IB.*. Ptrstmil Cciouter BASIC Cwoilir V2.00 


0199 


5010 


JZni dilete p«tter& 


019E 


0010 




oiA3 


0010 


pjct* « •OfUti B 


01AF 


00 M 


ctl.SClRCZ 


01»3 


0014 


:f iDnwscArin « o theh return 


01C7 


CCIB 


;? PA7WW » SELHfiKU THEH FUGl « *:GOSUB SHOV.EKROR; 






FETOX 


oin 


001c 


S2SUB SEARCH 




COIF 


IF PCIUTEH * 0 THE* FU6I « t z G0SU3 SKC*. ERROR: RETURN 


020? 


0020 




0209 


0020 


KISSASEI ■ •DeJ«tiBq • ♦ PATVAKEf ♦ ■ p] f4 $ t Uit.. 

• * 


0230 


0024 


SCSUB rX$3A££*01t 


om 


0024 






0024 


'rtvritt dirtctory dieting PATXAKEJ is inditU 






td by FOKTOtX 


0226 


O024 


KILL •PATDIFLCU)* 


022D 


0024 


KAKE •PATOIR.WP' AS "PATOIR.OUT 


0237 


0024 


D?EH •PATDIA.OUT FOR 1KPUT A3 11 


02<8 


0024 


OPEH ■PATTUK.RJ?' FOR OUTPUT AS 12 


025A 


0024 




025A 


0024 


IKPUT 11, PATKUKX 


out 


0024 


FAWOTX * PATXUW - I 


0275 


0024 


nm i2,pat«uki 


0286 


0024 




0286 


0026 


IF PATKJHX > 0 TXHK SOTO OIR.DOKE 


0295 


0026 


FOR II * I TO PiTXUHl ♦ I 


02A4 


0028 


INPUT ll.FATKAKEI 


02B6 


003 


IF II n POIKTERI TKEX PRIXT I2,?ATNA«E$ 


0203 


002A 


KIT il 


02E3 


002A 




02E3 


002A 


DJi.KNE: 


02EA 


002A 


acsc iw close 12 


02FB 


002A 




02FB 


007A 


'rciove dit) tilt 


02FB 


C02A 


FILES » RISHTJCSTRf (POIKTERI) f LEH(STRS (POIMTERZ) ♦ 






'FAT.RC?* 


03IC 


002E 


KILL FILE! 


0323 


COTE 




0323 


ooa 


•rwiM rewinUg d*U f ilts to uintiin Unktd 






list Kith dirtctory 


0373 


©02£ 


WILE IPATKUKX ♦ I) > POIKTERI 


0333 


002E 


SFILEI = RIBKfM5TWlP0lKTERX4n t LE»ISTRICPOIfa 






ER1+JU-U ♦ •PAT.WP* 


0359 


0032 


PFILEI « fiI6HT*l$TR*(P0U<TERU,LEN(STRS<POINTER 






DJ-1I ♦ 'PAT.RJ?* 


037D 


0034 


KAKE SFILEI AS DFIL£$ 


0387 


0036 


POIKTERI • POINTER! ♦ 1 


0390 


0036 


um 


0393 


0036 




0393 


0036 


$OSUB JESS ABE. OFF 


0399 


0036 


PAT»MES « SRKAKI 


03A3 


0036 


605UB T3W 


03A9 


0036 


50SUB OISP.DIR 
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03AF OOZo RTTJftH 

03B3 0v36 ' 

0JB3 OC3c Klft SPfioE 



74 



♦0 268 237 



»M9«t :«t fr;Sur * * - - * - * % # * p; 5£ . 

Pittrrn Filug 07-09-56 

13:11:46 



ft 
0 


Of fitt 


kit 


5-Mrct uat !W Ptriontl Coeputtr BASIC Coaoilir V2.00 

** 




03B3 


0C36 


7^5: *:c?y (it:irp 




0363 


0034 


TYPO » 0 




03BF 


0036 


JF FRTXUM « BO THEK FU8X » 3:60SU8 SK0¥ f ERROR: RETURN 




03DE 


0034 


PJXCTi * 'Copy' 


TO 


03E5 


O034 


EH* SOURCE 




033 


0:34 


IF ILMlFATXAHEn * 0 THE* RETURN 




o:n 


0034 


60SUB SEARCH 




0403 


0034 


IF POINTERI « 0 THEN FIA6X » liBOSUB SKOV. ERROR :RETURH 




041F 


0036 




75 


041F 


W34' 


SOS'JB en.KT^KWtE 




0425 


00X6 


IF UX(NEWAKEI) « 0 THEN RETURR 




0437 


o:3A. 


IF lEMKEVMXES} > 15 THEM FLASI * 2:6D$UB SHOW.ERRDRiR 








CTuRX 




0457 


O03A 




20 


0457 


003A 


*EsSA5I$ » •Copying • ♦ PATNAKEf ♦ • to B ♦ NEVNAKEf ♦ 








• Plem utiL." 




047C 


0C3A 


W3U8 nESSABE.OH 




0482 


003A 






0482 


003A 


'tdd KEWAKEt »t end of directory 


25 


. 0482 


W3A 


Xia •FATDJR.OUT 




048? 


«3A 


KAKE •PATOIR,RJF' AS 'PA73IR.CID - 




0493 


003A 


OPEN •PATOIR.CLu' FDR IKPUT AS 11 




04A4 


003A 


C?EX f PAT0IR,R;P' FOR OUTPUT AS 12 




04B6 


O03A 


i 


30 


0486 


003A 


1XPUT U, PATXWl . 




04C8 


M3A 


FATWM « PATK'J*; ♦ 1 




0401 


053* 


WUE h.patvur; 




04E2 


003A 






04E2 


O03A 


for n « 1 :c ?;:«wti - \ 


35 


0<F1 


O03C 


1XFUT tl.TEftP* 




0503 


0040 


FRIK7 i:,:ekp$ 




0513 


0040 


an n 




0525 


0040 


PR1XT l2,XEVKftnEf 




0535 


0040 




40 


0535 


0040 


CIC3E IhClCSE 12 




0543 


0040 






0543 


0040 


crtttt copy of pattern d«t« lilt 




0543 


0040 


FILEI e RISHTiiSTRH POINTER!) ,LEH(STRI tPOIHTERIU-1) ♦ 








•PAT.RJF' 


45 


0567 


00 40 


ttWfJtff » PISKTf(STR$lPATNUKI),UMtSTRStPATVURl))-t) ♦ 








•PAT.Wf 




0588 


0044 






0535 


0044 


OPEX Fill* FOR iKPUT AS II 




059C 


O044 


OPE* KOFI LEI FOR OUTPUT AS 12 


SO 


05AE 


0044 






05AE 


0044 


IKPUT lt,EU-J!1X 




O5C0 


0046 


RITE 42,EUU*l 




05D1 


0046 






0501 


0046 


FCR 11 * I TO 4 


55 


0508 


0046 


INPUT 11, TEW 




05EA 


004A 


KITE I2JEKP 




03FA 


004A 


REIT II 




060A 


004A 






060A 


004A 


FOR II s 1 TO EUUKI 



75 * 

BAD ORIGINAL 
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l5ili*U 



Offset 


Data 


Source Line IW Personal Coeauter BASIC CoopiUr V2.0O 


0617 


004C 




fur j: * i to 6 


061E 


004C 




INPUT •i.TEHPX 


0630 


oo«e 




KR1TE I2JEKPX 


0641 


00«E 




HOT JI 


0631 


0050 




KEIT IZ 


0663 


0050 






0663 


0050 




CIOSE HtClOSE 12 


0671 


0050 






0671 


0050. 




60SU8 KESSASE.OFF 


0677 


0050 




BCSUB DISP.DIR 


0670 


0050 




RETURN 


0681 


0050 






0681 


0050 


T3u: 


'renaie pattern 


0686 


0050 




TYFEI * 0 


068D 


0050 




rUKCT* ■ Kenate 


0697 


0050 




*AMtfL nm mm mm 

BuSUB BET. SOURCE 


069D 


0050 




IF IENIPATNAREj) » 0 THEN RETURN 


06AF 


0050 




60SUB SEARCH 


0685 


0050 




IF POINTER! « 0 THEN FIA6I * I:60aUB SHQi\ ERROR: RETURN 


060 1 


0050 




G601 


0050 




60SUB SET .NE*", HAKE 


0607 


0050 




IF CEN(NEVNAREJ) » 0 THEN RETURN 


06E? 


0050 




IF LENlNEKNAnEn > 15 THEN FUSI = 2;60SUB SHQN. ERROR; R 






ETON 




0709 


0050 




IF NENNAKEI * PATXAHES THEN RETURN 


071C 


0050 






071C 


0050 




KESSASES « 'Refuting • ♦ PATKAXE* ♦ • to ' ♦ NEV HAKES ♦ 






• 


PI rise Kiit,.' 


0741 


0050 




SO SUB !<E5sAoE.:x 


0747 


0050 






0747 


0050 




'change saltern nae in directory replacing PAT 






NAKSf Hith NEKNAKEf 


0747 


0050 




KILL •FATD1R.01D* 


074E 


0050 




KANE •PAT0IR.R:P' A3 "FAT0IR.QLD* 


075S 


0050 




OPEN •PATDIR.OLO' FOR INPUT AS 11 


0769 


0050 




CPEN , PAT0!R,KJ? % FOR OUTPUT AS VI 


077B 


0050 






077B 


0050 




INPUT 11, PATNUHI 


078D 


0050 




WUTE l2 f PATKUHZ 


079E 


0050 






079E 


0050 




FOR II ■ 1 TO PATNUN1 


07AB 


0052 




INPUT IIJEHPI 


07BO 


0052 




IF II <> POINTER! THEN PRINT «,TEXPf 


07DA 


0052 




IF 11 * POINTER! THEN PRINT I2,NEWNAHEI 


07F7 


0052 




NEXT II 


0809 


0052 






0809 


0052 




a03E lUCLOSE 12 


0817 


0052 






0817 


0052 




50 SUB XESSAS£,OFF 


081D 


0052 






OBID 


0052 




'select new pattern naie if necessary 


0810 


0052 




IF PATNAKEf * SELNAREf THEN PATNAXE* * NEWNAXEJ: 60SUB T 






3DA 




083C. 


0052 




GOSITB DISP.DIR 
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Patttro Filing 07-09-86 

I3;"lh46 

Offset UU Zzvzt Line Personal Co&outer BASIC Coipiler V2.00 

0847 OC57 FiTvSM 
0546 003? 

0846 OC52 ££« tPASE 



Recent Jit Printer pn^ 


Pattern Filing 


07*09-86 


Offset 




15:11:46 


Data 


Source Line IE« Personal Computer BASIC Coaoiler V2.00 


0846 


0052 


T70: 'select pattern for printing 


06;8 


0052 


TYPE1 * 0 


0832 


0052 


FUNCT* * 'Select* 


085C 


0032 


60SUB GET. SOURCE 


0862 


0052 


IF LENIPATNAKS*) « 0 THEN RETURN 


0874 


0052 


IF PATNAKEI « SEUiArtES THEN RETURN 


0387 


0052 


80SUB T30A 


068D 


0052 


605U8 DISP.DIR 


0893 


0052 


RETURN ; 


0897 


0052 


1 


0897 


0052 


T30A: 


089C 


0052 


B0SU3 SEARCH 


06A2 


0052 


IF POIKTERI • 0 THE* FLA8I » UBOSUB SKCV.ERROR: RETURN 


0B8E 


0032 




Oooc 


0052 


KE3SASEJ * 'Selecting • ♦ PATNAHE$ ♦ • Please Wait. 

* 


0605 


0052 


• • 

60 SUB HE5SA6E.0N 


080B 


0032 




0808 


0052 


'chinge fntrys in pattern default file PATDEF.R 






JP 


08D8 


0032 


OPEN •PATDEF.RJP' FOR OUTPUT AS 11 


08ED 


0032 


FILES * RIGHTMSTRKPOJNTERI) ,LEN(STR$ {P0INTERX1 1-1) ♦ 






'PAT.RJP* 


09U 


0032 




0911 


0032 


PRINT H,FlLEf 


0921 


0032 


PRINT ll ? PATKWl£$ 


0931 


0052 




0931 


0052 


CLOSE tl 


0938 


0052 


80SUB nESSASc.CFF 


093E 


0052 


RETURN 


0942 


0032 




0942 


0052 


T3E: 'exit pattern filing 


0947 


0052 


RETURN 


0948 


0032 




094B 


0052 


REM IPA6E 
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15 



40 



45 



50 



65 



UiTttt 


Data 


source Lie* ion rer sou a* lOBouttr basic toe-oiler VZ.QD 


0948 


con 


SEARCH: 




0052 


ru*Hiua ■ 0 


0957 




Grul PATOlR.RJr FOR INPUT AS 11 


0968 


0057 


IktUT tl,rAThU?TZ: git eaiotr ot patterns is direc 






lOTJ 


ism*. 


0052 


ic BAYwnrt m ft tucu n net ■ f • o rr i re u 


0990 


0052 


Torar m • • 
Tc«lr» » 


099A 


0052 


VJT1 r IBfllUTTTST / DATUimi AUft TBATU^Mr* /\ TTMO*\ 

iVtiLi. IrUlHltni \ rfllKUnlJ *u0 lrfllKWu.5 O TUlrJ) 


09C2 


0052 


1 TUT TUOIfT It TD»t)« 


09CF 


0052 


DntWTCTMT * OflTUTTDY x 1 

ruiKiuu * rulNItRi + I 


0908 


0052 


KND 


09DB 


0052 


tr BftTUAltt /\ TrWD* TUTU OHTUTCDT — A 


09F1 


0052 


CLOSE 11 


09F8 


0052 


RETURN 


09FC 


0052 


- 


09FC 


0052 


$cT»Sflv«CEz 


0A01 


0052 


LOCATE 25,1:C0LQR 15,0:PRIHT 'Enter Pattern Hue to *FU 






WCTV ' J 


0A33 


0052 


LIKE INPUT:' HAKES 


0A41 


0052 


LOCATE 25* 1 ; FkjKT SPACE* (79) j 


0A5E 


0052 


RETURN 


0A&2 


0052 




0A&2 


0052 


SET-VEV.KArtE: 


0A&7 


0052 


LDCATE 25, I: COLOR 15,0:PRINT 'Enter Hew Pattern Nate 


0A60 


0052 


LIKE INPUT; ,.\cfcWAntI 


0A9B 


0052 


LUwAlL Zj.UrKiJu SrAbtlWit; 


0AB8 


0052 


KcTUKJt 


0ABC 


W 52 




0ABC 


0052 


DISP.uIR: disjla* directory in ( coluins, 20 reus 


0AC1 


0052 


'read ct'ault pattern nate into ScLKAAE* 


0AC1 


0052 


OPEN 'PATSEF.?.;?* FOR UFUT A3 tl 


0A02 


0952 


INPUT tl,5ELKASEl: 'discard data file nut 


0AE4 


0052 


JftruT II t 5cVSHr.c> 


OAFi 


0052 


CLOSE 11 


OAFD 


0052 




OAFS 


0052 


CPtS rATDIR«..jF FOR IKrUt AS 11 


OBOE 


0052 


IkPUT li ( rhl«oni: read nuwer of patterns 


0B20 


0052 




0B20 


0052 


RESSAotJ s "Reading Pattern Directory Please Mait 


0B2A 


0052 


60SUB fttSSftbt.ON 


OB30 


0052 


FLAG I » 0 


0B37 


0052 


TERFI-* PATHUnl - IMF rAtHiIni \ aw THtH TtnrI « PATKun 


0B52 


C052 


1 

FOR 11 * 0 TO TEMPI 


0B5E 


W54 


LOCATE (II ROD 201*1, (IHT(U/20}*20)*1 


0B91 


0054 


PRINT SPACE* (IB); 


0BA1 


0054 


KEIT II 


0BB3 


0054 




0BB3 


0054 


FOR II « 0 TO PATNURI - 1 


0BC1 


0056 


INPUT lt,PATKAKE* 


OBD3 


005& 


LOCATE (II 500 20)*l! (INT CII/201 1201*3 


0C0£> 


0056 


PRINT FATNAHEl; 


0C13 


005S 


IF PATNAhE* = SELNAAEI THEN LOCATE (II KOD 201* 



l 1 (IHT(Il/20)«20l»iiPRINT M'j 



78 



Reioeot Jet Printer * ** * - , * 


PUttrn filing 


07-09-B4 


UTTSCl 


V«W 


ISiUiU 


97urn .int jgn renonil wapunr BASIC Cocpilir V2»00 


QUI 




AC 1 1 Ik 


0C77 




CLOSE 11 


0C7E 


00 3A 


60SUB R£5SA6E.0Fr 


0C84 


©054 


*fctUKJl 


0C86 


OC54 




0C53 


ocss 


«Ai UAL lit: 


0C8D 


0054 


Mil MPVIItfl tl 


OCSE 


«7E 


n&ftuKQ,Q) ■ Delete 


0CA& 


oc;e 


KEXuKO.l) ■ 'Reeove * pattern file froi the directory' 


OCCi 


0C7c 


RtKUKl.Q) • Copy 


OCDC 


C07E 


KEHUKl.l) * "Copy a pattern file to a ne* pattern out 


0CF3 


007E 


r.tj(U*w f 0J * Kenae-e 


0D12 


W7E 


KEWJK2.1) « 'Renaie a pittern file in the directory' 


0030 


007E 


Ai.WJ>ii t Q) » "Select _ 


OD4B 


M7E 


RENUK3,I) ■ Select a pattern file to be printed' 


0047 


007E 


ntKU* 14,01 » tXlt 


0D82 


0O7E 


ftcNu*i4,i) * Return to the tain eena* 


0D9E 


007E 




0D9E 


007E 


rm no e ft. ri e 
tuLQK Y,0;CL5 


0DB1 


007c 




ODBE 


007E 


ruK 11 > I TO 80 


0DC3 


007E 


PRINT *D'; 


0002 


007E 


Kill II 


0DE2 


007E 




0DE2 


007E 


FOR KEXUX » 0 TO 4 . 


OOEB 


W7E 


SOSUB rtHU.OFF 


CDEE 


007E 


NEXT nEXUX 


ODFE 


007E 




OOFE 


M7E 


S0SvJ» D ISP. Din 


0E04 


007E 


IF FW6I > 0 Tr.iH fiOSUB SHOW. ERROR 


OEIS 


007E 


KEHUI » 4 


OEIC. 


007E 


^ApitA uf 1*11 m 11 

SO SUB KEKU.0M 


0E22 


007E 


■ 


0E22 


007E 


RETURX 


0E2* 


007E 




0E24 . 


007E 


Ktl«AtNUl 


0E26 


007E 


605UB nEKU«CFr 


0E31 


007E 


ntKUI * BcKUI ♦ DlFTl 


oes* 


007E 


CflCIIB irui fly 


0E43 . 


007E 


DrTTtOM 

He IURM 


OE47 


007E 




0E47 


C07E 




0E4C 


007E 




OE63 


007E 


COLOR 0,7 


OEoF 


007E 


FRIKT llENUf (RENUIfOl; 


OESO 


007E 


LOCATE 25,40-LEM(REHUHREHUX f l))/2 


0EC1 


007E 


COLOR 7,0 


0EC5 


007E 


PiUXT REHUKKENUl.il; 


OEEC 


007E 


RETURN 


OEFO 


007E 




OEFO 


007E 


TEMU.OFF: 


0EF5 


007E 


LOCATE 22 l inENUlU0)U8 


OFOC 


007E 


C0L0K 14,0 
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PltttTD 


Filing 


07-09-56 






ISilliU 


Wfitt 


D»U 


So arc i Lint IBfl Person* i Couuter BASIC Cotpiler V2.00 


ona 


007E 


PRINT KEXUSOfENUlfO); 


on* 


007E 


LOCATE :5 t 40-US(KOUttBD;UX f lJ)/2 


0F6A 


007E 


PRINT SPACES (LEXIKESUStHEXUXtUUi 


0F8F 


007E 


RETURN 


0F93 


007E 




0F?3 


0O7E 


SXCV.EKKCRi 


0F9B 


007E 


OK FUB1 S05UB ERl, ER2, ER3, ER4 


0FA9 


007E 


ESRASSS « ERRt ♦ ■ Strike uy key.,* 


0FB9 


0086 


LOCATE 24 t 4C-L£XlERR«SeJI/2 


0F3B 


00B6 


COLOR 13,0 


0FE7 


0086' 


PRINT ERRKSSIj 


OFF* 


0036 


Al * " 


OFFE 


0086 


WILE At « 


100D 


0086 


AS * IKJCEYS 


1017 


0086 


HEW) 


101A 


0086 


WSUB HE5SASE.0FF 


1020 


00B6 


RETURM 


102* 


0086 




102< 


0086 


ER1: 


102? 


0086 


ERRS ■ PATKAKEf ♦ * Not Found in the Directory- 


1039 


0086 


RETURK 


1030 


0086 




103D 


00B6 


ERZi 


1042 


0086 


ERRS * "Piltrrn Nue is too Long (IS character* 


S04C 


00B6 


RETURN i 


1050 


0086 




io:o 


0086 


ER3; 


103S 


0086 


ERRS s •Oirectory is Full (80 patterns iu,)* 


103F 


0036 


RETURN 


1063 


0086 


*. 


1063 


0CS6 


ER4: 


1068 


0086 


ERRS * 'Cinnot Hodify SELECT d pattern Him - 


1072 


0086 


RETURN 


1076 


0086 




1076 


0086 




107B 


0086 


LOCATE 2*,38 - LENlREScroE*) / 2:CCLCR U,0;PR!KT HES3A 






EES J 


10B6 


0086 


RETURK 


108A 


0086 




10BA 


0086 




10BA 


0086 


HESSASE.OFFi 


108F 


0086 


LOCATE 24,l:C0l» lS f O:PRX«T SPACEIU9>( 


10ES 


0086 


RETURM 


10EC 


0086 




10EC 


0086 


END SUB 


10F3 


0086 




1683 


0086 





50426 Bytes Available 
45670 Bytes Free 

0 Naming Error (s) 
0 Sevtn Error U) 
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Rain Lint Codi 07-W-86 

13:27:04 

Off sit Data Source Line IBA Personal Coiouttr BASIC Coieiler V2.00 

0030 0006 REM JT1TU: 'Reagent Jet Printer* ISUBTI7U: 'Hain Uni Codt* 
0030 00W 

0030 0006 'HOWIE - 'KAIK* 
0030 0006 

0030 0006 'AUTHOR - X. A. devoid 
0030 0006 

0030 0006 'COPYRIGHT (C) l?86 ABBOTT LABORATORIES 
0030 0006 

0030 0006 'REVISION - I A 02-19-96 NAE Add notes and revise TYPEI resetin 
9 

0030 0006 * - 1.0 02-U-B6 RAE Creation of initial code 

0030 0006 

0030 0006 'SYS TEH - This code can only be coeplled by the BASCCh" 
0030 0006 ' CGhTILER, it vill not run under the INTERPRETER ! ! 

0030 0006 

0030 0006 'DESCRIPTION 

0030 0006 * This is the sain controlling aodule for the Reagent Jet 

Printer* 

0030 0006 ' It displays a eenu in table fori that allow* 6 function 

s to be 

0030 0006 ' selected. PATTERN DEFINITION allows the user to define 
patterns 

0030 0006 ' to be printed, PATTERN PILING lets the user delete, co 
py, renaie 

0030 0006 ' and select patterns tor printing. REAGENT CALIBRATION 
periits setting 

0030 0006 ' of operation paraeeurs for different reagents. REAGEN 

T FILING is 

0030 0006 ' the sate is pattern filing, PRINTING PRINT prints the 

selected 

0030 0006 * pattern with the selected reagent. SYSTEH EXIT TO DOS 

ends the session, 

0030 0006 ' Using up and down arrow keys let the user sove through 

the tenu and 

0030 0006 * the Enter <cr> key activates the selection, 
0030 0006 

0030 0006 'DATA DICT1QXART 

0030 0006 ' hTWX This value represents the current tenu 

itet (0-5) 

0030 0006 * HENU$l5 f lJ String array for displaying eenu iteis, 

6 rows by 2 coluus 

0030 0004 ' Each row corresponds to a eenu itei (0- 

3) 

0030 OOOo ' First coluin is short tenu nue in high 

lighted area 

0030 0006 ' Second column is long description displ 

ayed at eenu faottoi 

0030 O006 * KRWIE31 This array stores to row in which the i 

hort eenu naee will be displayed 
0030 0006 ' DIFTl This value is used it change HENUI in r 

esponse to arrow keys 
0030 0006 * TYPEl This value is set based on which valid 

key is pressed 

0030 OOOt ' 0 « No valid key. I * Up Arrow. 2 * D 
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R*«oent Jet Printer 2 
P.ain Line Code 07-09-86 

15:27:0* 





Offset 


Date 


Source line IBfl Personal Cotsacer 3 ASIC CotpiUr V2.00 








o*n Arrow. 3 ■ <cf >, 




0030 


0006 


TEKPI Used to store hcKUI nhile screen is ref 


10 






reshed 




0030 


0006 


AS Used to store single input keystrokes 




0030 


0006 


Ci Used to store special gnpMcs characte 








rs used in driwiog the eenu table 




0030 


0006 


IX Counter used to refresh display 


75 


0030 


0006 


RZ Rom in which special graphics chancter 






is disolayed 




0030 


0006 


CI Coluan in which special graphics charac 








ter is displayed 




0030 


0006 


RES IPASE 


zo 










Reagent 


M Printer PAGE 3 




Wain tine Code 


07-0VB6 








15:27:04 


25 


Offsst 


Data 


Source Line lo!l Personal Coaouter BASIC Cospiler V2.00 




0030 


0004 






0030 


0OC6 


\*,aio-Hne coie for RJP Reagew Jet Printer 




0030 


0006 






0030 


0006 


WIK.USE.COri: i 


30 


0030 


0C06 






003* 


0006 


EC SUB 1HITJALI7E 




00U 


0006 
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IF AS * CHRSM3) THEN TYPEI • 3:' 
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0010 


013B 


0010 


0140 


C010 


014F 
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PAGE 4 
07-09-36 
13:27:04 

Id* Personal Computer BASIC Coesiler V2.00 



'iff mmi SXJB-RCiniKES FOR HAW PRQ6RAK 



Tl: 



T2: 



T3; 



up irrov 

IF KENUI « 0 THEN RETURN 
D1FFI « -1 

6osu8 m.mv 

RETURN 
'down trroi 

IF HDJUI » 5 THEN RETURN 
DIFT1 * 1 
G05UB KEV.HENU 
RETURN 



OX KENUI ♦ 1 G0SU3 T31, T32, T33 t T34, T33, T36 
IF KENUI < 5 THEN TYFEX = Oi • reset TYPEI so progru 
■on't end 

SCREEN 0,0,3,3 



T31: 



T32: 



T33: 



T34; 



T35t 



T36i 



RETURN 

'pattern definition 
CAU PATENTS 
8t)SUB REFRESH 
RETURN 

•pattern filing 
SCREEN 0,O t O,0:CLS 
CALL PATTERN, FILE; 
RETURN 



'in todule PATENT 



'in eodule PATFILE 



'recent cihbraucn 

CALL REASENT^HwUSATEi-in iDdule REACAl 
RETURN 



'reagent filing »tnu 
SCREEN 0,0,0,0:^5 
CAU REASEMT.FIIE: 
RETURN 

'priot pattern 
CALL PATPRINT; 
RETURN 



'in todule REAFIIE 



*in udule PATPRINT 



'exit syUei, don't nstt TYPE! 
RETURN 
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0239 0010 CV.*EXy: 

025E 00i9 C3SUB KSKJ.QFF 

02&4 0010 KEKH « ISHUI ♦ DIFH 

0270 0010 E0SU5 flDU.0X. 

027 6 0OJ0 RCTVRX 

027ft 0010 

027A 0010 IMITIALIIE: 

027F 0010 ttUPCMRil 

02SB 0010 

02BB 0010 ' itii&t aod iiiUalizc arrays 

028B 0010 SIX MXttl) 

02BC 00IC KOVHO) « 4 

029E 00 ic mourn * & 

0281 001C ERG«(2) * 10 

02C4 ooid man) * \i 

02D7 001C IRCVIMI « H 

02EA 0OIC KUKZC3) * 20 

02FD 001D 

02FD 001C PUIISXUHS,!) 

02FE ©0<C RESTORE HEKU.STRIK6.0ATA 

0305 004C m II * 0 TO 5 

030B 004C READ NE»US (lX f 01 9 KENUSClX t X) 

033B 0O4E KIT IX 

034B 004E 

034B 0O4E • set initial values into variables i 

0348 004E TYPE! » 0 

0352 oo<c rsm * 0 

035? 0O4E 

0359 004E REFRESH: *rea>« jcreen and M-thoht current aenu selection 

035E 004E 

035E 004E e:;eeh 0,0,0,0:CLS:CC;:S 7,0,0 

038B OWE LCCATE 10,J2:FR:nt 'loading Menu • 

03A5 004E SCFEE* 0,0,3,0:015 

03C2 W4E 

03C2 W4C 

03C2 0O4E COLOR 13,0 

03CE 004E LCCATE U3S 

033B OWE PRINT *REASEKT JET PRIHTER'; 

03EB 0O4E CClCR 10, C 

03F4 004E LOCATE 5,24 

0401 004E PRINT 'PATTERN' 

040E 0C4E LOCATE. 11,2b 

041B O04E PRINT 'REAGDfT' 

0428 004E LOCATE MM 

0435 004E PRINT •FMHTIKS' 

0442 004E LOCATE 20,27 

044F 004E PRINT 'STSTEJT 

045C 004E 

045C 004E * irm the aenu table in special graphics characters 

041C 004E COLOR 9,0 

OUG 00U FOR I! « 18 TO hZ 

04&F 004E LOCATE 2.;i:PRTKT -O'j 

048A 00<E LOCATE 8,lX:FiUMT 

04A5 004E LOCATE 14 ) 1I:PRUU 
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nf»9*oi ii\ h-intir " * * * * Pft&r 6* 

Hun Line Code 07-09-96 

15:27:04 



t\l (cat 


V4\l 
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Aim 


a a ir 


iC-ATt 18,JI:PRIhT P'; 


0*38 


0G4E 


wO^ATE t2.Ii;PRIKT 9 V*\ 


AiCt 

Q4r6 


0O4c 


LOCATE 24,lIlPRUT V \ 


0511 


004E 


HUT U 


0524 


00 4 E 


FgR II * 3 TO 23 


Ojic 


004E 


LQWTt U,*/;rRlMT J ; 




ft ft I J 




UjoI 




Ne.il ll> 






rccTftnr TAftt V 
RtSlUJVt InBLL 


0576 


004E 


FCS IX M TO 12 


057F 


004E 


RE AO RI t tt,CJ 




MCI 


LUtAlc hi,vi:fkihi t»J 


Oaflt 


00** 


Hell 11 


Arnr 

OwBfc 


0056 




055E 


0056 


print the instruction* 


05ofc 


A ACL 

0056 


Mil *ft ^ A 

UJLQK 7,0 


05CA 


0056 


IOC ATE 25,6 


0507 


0056 


PRINT 'Use or to highlight tenu iteis. Use to 
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05E4 


0056 




05E4 


0056 


COLOR 15,0 


"i 

060A 


0056 


LOCATE 25,15:PRIMT ••; 


0624 


0056 


LOCATE 25,47;PRIXT 9 9V\ 1 


063E 


0056 




* Anr 
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AACl 

0056 


Ttnri ■ ntKul 




Vv JO 


run ncnu* * v iu j 
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00*8 
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W53 


KEXUX » TEKPi 


0668 


0058 




0668 


M58 


highlight the currently active tenu itet 


0668 


0058 


bUiUB ftcKUtOX 


066E 


0058 




066E 


0058 


SCntDf 0,0,3,3 


0682 


0058 


KEIUrH 


068? 


0058 




068? 


005B 


KEVU.DKi 'highlight the eenu nEHUI ind display its long descript 






ioa 


0681 


005S 


PW| A ft A ^ 

COLOR 0,7 


0691 


0053 


LDCATt KKUiIlntKUT) ,52-LEHtKENUI(HEKUl l 0))/2 


OoUR 




PC TUT KPV11C (dCUirT AW 


06FB 


0C53 


COLOR 7,0 


0704 


0058 


LOCATE 23,40. 5-LEN(XEKU$(KEHul,l))/2 


0738 


0058 


FSINT h*cKU$(RERUl,ll; 


0757 


0058 


RETURN 


075B 


0058 




0758 


0058 


KEXU.OFFi 'un-highlight tenu HEHUI ind erase loog description 


0760 


0053 


COLOR 14,0 


076C 


C053 


LCCATE nSOyXtRESUI) ,32-LLHtHE!lUJlKEKUI ( 0) 1/2 


07AC 


0053 


PRIHT KEWIIKEKUX.OM 


07CA 


0058 


COLOR 7,0 • 


07D6 


C05B 


LCCATE :3,40 ( 5-LEKiaEKU$ IREKUl, 1)1/2 
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Kucwt U\ Printer PABE 7 

Kain line Cotfe 07-09-3* 

13:27:04 

Offset Bat J izvzt Line IBH Personal Computer BASIC Coipiler V2.00 

080ft C05S PRIHT 5?ACEMLDil«EHUIt«EHUI r njJi 

082F 0058 R£TURK 

0833 O05S 

0833 0053 RE* J?ASE 



so 



55 



86 



0 368 237 



•> «» * * 



10 



75 



30 



40 ■ 0845 0058 

0642 C05B 



Reagent vit Printer g 
JUin Lir.e CcJe 07-09-96 

15:27:04 

Offset Mi $o-jtci line IBK Personal Coepater BASIC CoiDiltr V2.00 

0S33 003 'iHMtu DATA FTEIDS UScD BY THE KAIK PKOSP.Mf timtft 
0633 0038 

0333 0053 KDCUTR1X6.DATA: 'first entry it tcnu aim, seconu is 1 D 

dq dweription 

0838 003 

0838 C053 DATA •KrIKlTJON\ •Crutt and Hodily Pattens' 

083A CMS DATA •FILIKS', 'Delete, Copy, Renaie, and Select Pi 

tteras* 

°WC DATA •CALIBRATIOM'/UHbfite and Aodify Reaaent Profii 

es* 

0B3E W5B DATA.'FIUKB', 'Delete, Copy, Renaie, and Select Rt 

0840 W53 DATA •PRIKT*, 'Print Selected Pattern «ith Seiecte 
i Reigent* 

08 <* DATA •KIT TO DOS', 'Urn Progru and Return to DOS* 

0844 0058 

0844 0058 TABLE: Mint entry u ro« f second is coluin, third is special 
graphics character 

0847 005B 

0849 0058 DATA 2, 17,*Z* 

0S4B 0053 DATA 2,64 f # ?' 

084D 0058 DATA fl f 17 t w C" 

084F 0058 DATA 6,44, T 

0851 0053 DATA 14,17,'C* 

0853 0058 DATA 14,64/4' 

0855 0058 DATA 18,17/C* 

0857 0058 DATA 18,64,'P 

085? 0058 DATA 22,17/C 

085B 0058 DATA 22,64,N' 

085D 0053 DATA 24, 17,'*' 

085F 005E DATA :<,64/y 

0861 0053 

0861 0058 OCO 
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1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 

a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice; 

a transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 



B7 




thereby cause the Jetting chamber to omit a substantially unif orrn?y*sized ^Jfbplet of diagnostic fluid through 
the orifice; and 

means for generating a number of electrical pulses sufficient to cause a desired quantity of the diagnostic 
fluid to be dispensed. 

2. The Invention of Claim 1 wherein the system further comprises: 

at least one additional jetting chamber rn fluid communication with an additional diagnostic fluid; 

at least one additional transducer in mechanical communication with the additional jetting chamber, 

at least one additional means for applying an electrical pulse to the additional transducer, 

means for generating respective numbers of electrical pulses sufficient to cause precise quantities of the 

diagnostic fluids to be dispensed in a desired volumetric ratio; and 

a receptacle adapted for and positioned to receive the fluids. 

3. The invention of Claim 1 wherein the system further comprises: 

means for directing at least one of (1) the receptacle and (2) the emitted diagnostic fluid and the emitted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle in a 
predefined dispensing order. 

4. The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid is emitted in a manner to contact and mix 
with the serum. 

5. The invention cf Claim 1 wherein the jetting chamber comprises a cylindrical tube and wherein the 
trans-ducer is mounted concentrically about the cylindrical tube. 

6. The Invention of Claim 1 wherein the jetting chamber is conically shaped. 

7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wail which is 
integrally formed with the transducer. 

8. The invention of Claim 1 wherein the transducer is one of (1) a piezo-electric transducer (2) a 
magneto- strictive transducer. (3) an electro- strictive transducer; and (4) an electro-mechanical transducer. 

9. The invention of Claim 1 wherein the jetting chamber is conically shaped: and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

1 0. The invention of Claim 1 wherein the orifice comprises an end face and the end face is coated with 
a hydrophobic polymer. ' 

11. The invention of Claim 1 wherein the transducer is cyiindrically shaped and comprises a first 
electrode located on the inner wall of the cylinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is electrically isolated from 
the first electrode. 

12. The invention of Claim 1 wherein the means for generating produces an electrical pulse of selected 
rise and fall time constants and of selected duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electrical pulse comprises means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 
diagnostic fluid along a desired path. 

15. A method of dispensing precise quantities of diagnostic fluids comprising the steps of; 

(a) generating an electrical pulse of predefined characteristics: 

(b) reducing the volume of a chamber containing the diagnostic fluid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an orifice 
in the chamber: and 

(c) repeating steps (a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 
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